摘要: procedure TForm1.Button1Click(Sender: TObject); const arr:array[0..3] of WideString=('白日依山尽','黄河入海流','欲穷千里目','更上一层楼'); a=20; b=20; var s:string; x,y:Integer; i,j:Integer; begin x:=20; y:=20; for i:... 阅读全文
posted @ 2011-03-03 00:20 橘子西瓜 阅读(310) 评论(0) 推荐(0)
摘要: procedure TForm1.FormPaint(Sender: TObject); var trect1:trect; begin canvas.Pen.Color:=clred; //canvas.Pen.Width:=1; //指定画笔的宽度 //canvas.Pen.Style:=psDashDotDot;//指定画笔的样式 with canvas do begin pen.colo... 阅读全文
posted @ 2011-03-03 00:18 橘子西瓜 阅读(613) 评论(0) 推荐(0)
摘要: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ExtDlgs, jpeg; type TForm1 = class(TForm) OpenPictureDialog1: TOp... 阅读全文
posted @ 2011-03-03 00:16 橘子西瓜 阅读(506) 评论(0) 推荐(0)
摘要: 媒体播放器控件 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Panel1: TPanel; Butt... 阅读全文
posted @ 2011-03-03 00:12 橘子西瓜 阅读(525) 评论(0) 推荐(0)
摘要: 调用WindowsAPI播放声音: procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin sndplaysound('',snd_async); end; procedure TForm1.Button1Click(Sender: TObject); begin sndplaysound('C:\... 阅读全文
posted @ 2011-03-03 00:09 橘子西瓜 阅读(456) 评论(0) 推荐(0)
摘要: Delphi中的文件分为文本文件、有类型文件和无类型文件。在一般情况下,文件仅指磁盘文件,外设如打印机、显示器也是文件,这里的文件仅指磁盘文件。 文件的基本操作: 与外部文件联系的建立与中断 在Delphi中要对外部为难进行读写操作前后,需要将该外部文件名分配给一个文件类型的变量;当不需要对外部文件进行读写时,需要中断文件变量与该外部磁盘文件的联系。 文件的打开与关闭 在对文件进行读写操作前后... 阅读全文
posted @ 2011-03-03 00:02 橘子西瓜 阅读(441) 评论(0) 推荐(0)
摘要: 在第一篇的Delphi初浅入门笔记之一 :Object-Pascal基础中,我列出了一些高级数据类型。但是在实际的学习中,我只接触了枚举类型。还有字节类型,数组类型等等需要掌握,如果需要用到Delphi做开发的话。 还是用源代码来说事吧: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Grap... 阅读全文
posted @ 2011-03-02 23:51 橘子西瓜 阅读(471) 评论(0) 推荐(0)
摘要: 通过以上两篇知道过程和函数有些类似。就我的理解除了返回值之外,还有一个不同是过程应用于事迹机制。而函数,应该更多是做为程序的一个子模块来应用。为了加深理解,转载了百度空间中的一片文章。 Delphi 函数和过程的应用与区别(转) 2009-11-10 21:43 1.格式如下: (1)函数: function 函数名(标识符)(param1,param2:string;int1,int2:inte... 阅读全文
posted @ 2011-03-02 23:42 橘子西瓜 阅读(561) 评论(0) 推荐(0)
摘要: 与过程不同,函数是有返回值的子程序。一般通过函数名或者一个系统预定义的隐含变量Result返回函数的值。在Delphi中有内部函数和自定义函数两种函数。 标准函数: 标准函数的格式,用StrToInt这个函数类举例: function StrToInt(const S:String):Interge 阅读全文
posted @ 2011-03-02 23:37 橘子西瓜 阅读(638) 评论(0) 推荐(0)
摘要: 过程: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Edit1:... 阅读全文
posted @ 2011-03-02 23:28 橘子西瓜 阅读(609) 评论(1) 推荐(0)