delphi 常用.doc

1、Addr Addr(x):Pointer 该函数返回一个变量或子程序的地址。 （即指针，与运算符等价） 。 “var x:Pointer;beginx:=Addr(x);现指向它自己 end;“AnsiCompareFileName AnsiCompareFileName(Const S1,S2 : String):Integer 基于当前地区的特征比较两个文件名。 “条件 返回 s1s2 0 s1s2 0 s10 thenshowmessage(大小写被认为不同！)“AnsiCompareText AnsiCompareText(Const S1,S2 : string):Integer;

2、比较两个字符串的大小，（不分大小写的比较） 。例如 条件 返回? s1s2 0 ?s10 thenshowmessage(Delphidelphi)else showmessage(Delphis2 0?s1s2 0 ?s1s2 0 ?s10b:=ansistrcomp(ABC,ABD,2)/b=0end“AnsiStrLIComp AnsiStrLIComp(S1,S2:Pchar ; M : Cardinal):Integer; 比较字符串序列前 M个字节的大小，大小写不区分比较依据如下： 条件 返回 ? s1s2 0? s10 thenmessagedlg(connot find dir

3、ectory,mtwarning,mbok,0);end;“Chr Chr(X:Byte):Char; 取得一个字符的 ASCII 码。 “canvas.textout(10,10,chr(65)返回字母A;“Close Close(Var F : File);结束文件变量和一个外部文件的关联。该函数是为了保持对现存的 PASCAL 代码的兼容。如果在 DELPHI 中或者 KYLIX 中写程序，建议使用CLOSEFILE（）函数。 “beginif opendialog1.execute thenbeginassignfile(f,opendialog1.filename);reset(f)

4、;edit1.text:=inttostr(filesize(f) close(f);end;end;“CloseFile CloseFile(Var F : File) 结束文件变量和一个外部磁盘文件的关联。该函数释放由Reset, Rewrite 或 Append 打开的任何类型的文件，该变量将被彻底更新和释放，以供其它文件使用。 “beginif opendialog1.execute thenbeginassignfile(f,opendialog1.filename);reset(f);edit1.text:=inttostr(filesize(f) closefile(f);end

5、;end;“CollectionsEqual CollectionsEqual(C1,C2:Tcollection):Boolean; 比较两个集合的内容。仅当两个集合中的元素内容、数量、位置都一致时，函数才返回真。其中 tcollection 代表这两个集合的父组件，如窗体，数据模块等。 “var set1,set2:set of 110;set1=1,3,6,9;set2=13,5,8;beginifcollectionsequal(set1,set2) then label1.caption:=”equation!” elselabel1.caption:=”not equation!”

6、;endifend;“CompareText CompareText(Const S1,S2 : String):Integer; 比较两个字符串的大小， （不分大小写的比较） 。相等时返回 0，S1S2 时返回 1，否则返回-1。 “var string1,string2:string;I:integer;BeginString1:+ABC;String2:=aaa;I:=comparestr(string1,string2);If I0 then valid file handle else open error ;filehandle = negative dos error code

7、end;“FilePos FilePos(Var F):Longint; 返回文件 F 中当前的指针（作为一个记录项） 。调用该函数前，文件必须已经打开，并且不能用于文本文件。文件的开始位置是零。如果文件当前位置在文件开始处时，FilePos(F)返回 0，否则返回文件位置；如果文件当前位置在文件尾，Dof(F)=True。 “var f:file of byte;size:longint;s:string;y:=integer;beginif opendialog1.execute then beginassignfile(f,opendialog1.filename);reset(f);s

8、ize:=filesize(f);s:=file size in bytes:+inttostr(size);y:=10;canvas.textout(5,y,s);“FileGetDate FileGetDate(Handle : Integer):Integer; 返回文件生成的日期和时间。如果句柄无效则返回值为-1。 “a:=filegetdate(null);/a=-1“FileRead FileRead(Handle : Integer ; Var Buffer ; Count : Integer):Integer; 从一个文件读取count 字节到 buffer 缓冲区。函数返回值

9、为实际读取的字节数，该数值小于等于 count。“procedure TForm1.Button1Click(Sender: Tobject);var iFileHandle: Integer;iFileLength: Integer;iBytesRead: Integer;Buffer: Pchar;I: Integerbeginif OpenDialog1.Execute then begintry iFileHandle := FileOpen(OpenDialog1.FileName, fmOpenRead“FileSearch FileSearch(Const Name,DirLis

10、t : string):String; 函数在 dirlist 参数给定的目录中搜索 name 参数表示的文件名，dirlist 可以包含多个目录信息，每一个目录之间用分号分隔。如果该函数在目录中找到匹配的文件，则返回该文件的完整的路径名；否则返回一个空串。 “beginshowmessage(filesearch(test.txt,c:temp;c:;d:) end;“FileSeek FileSeek(Handle , Offset, Origin :Integer):Integer; 该函数移动文件指针。handle是一个已打开的文件的文件号，offset 是针对参数给出的新的文件指针位

11、置， origin 具有三个取值，含义如下 ：0：表示 offset 相对于文件开始位置计算。1：offset 相对于文件的当前位置计算。2：offset 相对于文件尾计算。 “procedure TForm1.Button1Click(Sender: Tobject);var iFileHandle: Integer;iFileLength: Integer;iBytesRead: Integer;Buffer: Pchar;I: Integerbeginif OpenDialog1.Execute then begintry iFileHandle := FileOpen(OpenDial

12、og1.FileName, fmOpenRead“FileSetAttr FileSetAttr(Const FileName : string ; Attr : Integer):Integer; 设置文件属性。具体文件属性可参看相应 faXXXX 代码表示。 “beginFileSetAttr(MyFile.sys, faReadOnly);End.“FileSetDate FileSetDate(Handle : Integer ; Age :Integer):Integer; 设置由 handle 参数指定文件的日期。age 参数使用 DOS 日期时间格式。可以使用权 DateTime

13、ToFileDate 函数将TDateTime 日期时间格式转换成 DOS 日期时间格式。“filesetdate(1001,datetimetofiledate(now);“FileSize FileSize(Var F ):Integer;取得指定文件的文件长度。以字节为单位。如果 F 是一个记录文件，filesize 返回的是文件中的记录个数，实际的字节数可由记录数乘以记录长度获得。filesize 不能用于文本文件，调用该函数前，文件必须打开。 “var f: file of Byte;size : Longint;S: string;y: Integer;beginif OpenDi

14、alog1.Execute then beginAssignFile(f, OpenDialog1.FileName);Reset(f);size := FileSize(f);S := File size in bytes: + IntToStr(size);y := 10;Canvas.Tex“FileWrite FileWrite(Handle :Integer ;Var Buffer ; Count :Integer):Integer; 将 count 个字节通过buffer 写入 handle 指定的文件中。返回值为实际所写入的字节数；如果返回-1 则表示写入出错。 “procedu

15、re TForm1.Button1Click(Sender: Tobject);var BackupName: string;FileHandle: Integer;StringLen: Integer;X: Integer;Y: Integer;beginif SaveDialog1.Execute then beginif FileExists(SaveDialog1.FileName) then beginBackupName :=“FillChar FillChar(Var X; Count ; Value : Byte); 该函数在变量 X 指向的地址连续填充 count个字节，填充

16、值由 value 给出，该参数可以是 Byte 或 Char 类型。该函数不进行范围的越界检查，故调用前一定要确保填充范围不能越界。 “var S: array079 of char;beginFillChar(S, SizeOf(S), Ord( );end;“FindClose FindClose(Var F :TSearchRec); 该函数结束 FindFirst/FindNext 调用序列释放相应资源。该函数的调用在 32 位在 windows 系统中是必须的。 “procedure TForm1.Button1Click(Sender: Tobject);var sr: TSear

17、chRec;FileAttrs: Integer;beginStringGrid1.RowCount := 1;if CheckBox1.Checked then FileAttrs := faReadOnly else FileAttrs := 0;if CheckBox2.Checked then FileAttrs := FileAttrs + “FindControl FindControl(Handle : HWnd):TwinControl; 返回由指定系统句柄说明的系统控制。 “FindControl (Form2.Handle, SW_SHOWMINNOACTIVE);“Fin

18、dDragTarget FindDragTarget(Const Pos : Tpoint ; AllowDisabled : Boolean):Tcontrol; 返回一个指定的屏幕坐标的控制。 “iffinddragtarget()=nil then label1.caption:=所在位置没有控件;“FindFirst FindFirst(Const Path : String ; Attr : Integer ; Var F : Tsearchrec):Integer; 查询第一个符合条件的文件，并返回。其中的路径支持通配符，attr 代表文件的属性。 “procedure TForm

19、1.Button1Click(Sender: Tobject);var sr: TSearchRec;FileAttrs: Integer;beginStringGrid1.RowCount := 1;if CheckBox1.Checked then FileAttrs := faReadOnly else FileAttrs := 0;if CheckBox2.Checked then FileAttrs := FileAttrs + “FindNext FindNext(Var F : TSearchRec):Integer; 查询下一条符合条件的文件。 “procedure TForm

20、1.Button1Click(Sender: Tobject);var sr: TSearchRec;FileAttrs: Integer;beginStringGrid1.RowCount := 1;if CheckBox1.Checked then FileAttrs := faReadOnly else FileAttrs := 0;if CheckBox2.Checked then FileAttrs := FileAttrs + “FloatToDecimal FloatToDecimal(Var DecVal : TfloatRec ; Const Value ; ValueTyp

21、e : TfloatValue ; Precision,Decimals:Integer); 将一个浮点数转换成为一个十进制数字。参数precision 表示期望的精度，为 1-18。参数 decimals 表示小数点左边的最大位数（整数部分）。FloatToStr FloatToStr(Value : Extended):String; 将浮点数转换为指定格式的字符串。该转换使用普通数字格式。有效位数为 15 位。 “vars:string;begins:=floattostr(18.5);end;“FloatToStrF FloatToStrF(Value:Extended ; Forma

22、t : TfloatFormat;Precision,Digits:Integer):String; 将浮点数转换为一个字符串。FORMAT 参数控制结果的格式，precision 定义给定值的精度，对于 single 浮点值，该值须小于或等于7；对于是 double 型浮点数，该值小于等于 15；对于 extended 符点值，该值小于等于 18。“Var S:string;BeginS:=floattostrf(18.5,ffnumber,15,10);end;“FloatToText FloatToText(Buffer:Pchar;Const Value; ValueType : Tf

23、loatValue;Format : TfloatFormat;Precision,Digits:integer):Integer; 将一个浮点数转换为一个指定格式的十进制数字。 “var s:integer;buffer:pchar;begins:=floattotext(buffer,18.5,ffcurrency,10,10);end;“FloatToTextFmt FloatToTextFmt(Buff :Pchar ;Const Value ;ValueType :TFloatValue;Format:Pchar):Integer; 将一个浮点数转换为一个指定格式的十进制数字。“va

24、r buff:pchar;v:extended;i:integer beginv:=100.00;I:=floattotextfmt(buff,v,ffgeneral);end;“Floor Floor(X:Extended):Integer; 向下舍入给定变量，即取小于或等于 X 的最大整数。“Floor(-2.8) = -3 Floor(2.8) = 2 Floor(-1.0) = -1“Flush Flush(Var F : Text); Flush 强制把缓冲区的文本输出到一个以写方式打开的文本文件（如 append,rewrite） 。缺省情况下，会缓冲一行文本。注意：该函数刷新 d

25、elphi 的缓冲区，并不是刷新系统缓冲区。要确保所有的数据都安全保存，请使用保存功能或退出文件。 “var f: TextFile;beginif OpenDialog1.Execute then beginAssignFile(f, OpenDialog1.FileName);Append(f);Writeln(f, I am appending some stuff to the end of the file.);Flush(f);CloseFile(f);end;end;“FMTBCDToCurr FMTBCDToCurr(Const BCD : FMTBcd ; Var Curr

26、: Currency):Boolean; 将一个二进制编码的十进制值转换成为一个对应的 Currency 型值。?注：早期的函数，不推荐使用。FmtLoadStr FmtLoadStr(Ident:Integer;Const Args : array of const):String; 将一个资源格式化的字符串返回为格式化的输出。 “label1.caption:= Fmtloadstr(There are now %d records in the table, DataSet.RecordCount);“fmtstr FmtStr(Var StrResult : String ; Cons

27、t Format : String ; Const Arge : array of const); 该函数格式化参数 args 数组中的参数，参数 format 是 object pascal 格式化字符串，用于控制结果的格式。结果字符串返回到参数 result 中。 “Fmtstr(123.456,%8.2f)“ForceDirecttories ForceDirecttories(Dir : string)：boolean; 根据指定的参数创建目录。所给参数必须是一个完整的路径。如果给定的路径中有目录不存在，则函数将会建立它。“procedure TForm1.Button1Click(S

28、ender: Tobject);var Dir: string;BeginForceDirecttories(C:APPSSALESLOCAL);Dir := C:APPSSALESLOCAL;if DirectoryExists(Dir) then Label1.Caption := Dir + was created end;“Format Format(Const Format : string ; Const Args : array of Const):String; 将字符串转换为一个指定格式的字符。 “var x:string;beginshowmessage(format(%*

29、.*f,9,1,234123.456) showmessage(format(%9.1f,234123.456) end;“FormatBuf FormatBuf(Var Buffer ; BufLen : Cardinal ;const Format ;FmtLen :Cardinal;const Args:array of const ):String; 格式化一个数组的变量，并将结果放置在缓冲区 Buflen 内。“type array:real;vararray1110:array;s:word;b:buffer begins:=formatbuf(f,10,n,array1);end

30、;“FormatCurr FormatCurr(Const Format : String ; Value : Currency):String 函数根据给定的format 格式来格式化 currency 所指定的变量。 “var curr:currency;beginFormatCurr(ffgeneral; curr);end;“FormatDateTime FormatDateTime(Const Format:string;DateTime:TDateTime):String; 该函数将日期时间变量 datetime 转换为 format 指定格式的字符串。 “beginshowmes

31、sage(formatdatetime(formatdatetime(”今天是” ,yyyy,mmmm,d,dddd hh:mm,now) end;“FormatFloat FormatFloat(Const Format:string;Value:Extended):String; 该函数将参数 value 指定的浮点数转换为 format 指定格式的字符串。 “下面是针对不同的格式转换时所得到的结果：0.00 #.# #.#0.00 0.000E+000.5 .5 0.50 5.000E-01“FormatMaskText FormatMaskText(Const EditMask : S

32、tring ; Const Value : String):String; 该函数使用一个编辑屏蔽符格式化一个字符串。 “vars:string;begins:=formatmasktext（edit1.editmask， ！ ）;end;“FPower10 FPower10 (Val X: Extended ;pow : Integer ):Extended; 该函数返回参数 X 的pow 次幂。这里 X 必须大于 0。 “var I:extended;k:extended;begink:=5;I:=fpower10(k,5);end;“Frac Frac(X : Extended ):Ex

33、tended; 返回实数的小数部分。 “vara:extended;begina:=frac(23.44);end;“FreeMemFreeMem(Var P : Pointer; Size : Integer); 释放一个给定大小的动态变量 P，将变量空间归还给程序堆空间。过程调用完后，P 变为没有定义。如果再调用 P，将会引发运行错误，可以用系统的异常处理机制来处理这类错误。 “procedure freememandnil(var p);vartmp:pointer;begintmp:=pointer(p);pointer(p):=nil;freemem(tmp);end;“GetCur

34、rentDir GetCurrentDir:String; 返回当前目录的完整路径名。 “vars:string;begins:=getcurrentdir();end;“GetDir GetDir(Drive : Byte; Var S: String) 取得指定磁盘驱动器的目录。参数 Drive 表示驱动器，结果返回到 S 中。参数 Drive 取 0 时表示当前驱动器，取 1 时表示 A 驱，取 2时表示 B 驱等等，以此类推。 “vars : string;beginGetDir(0,s); 0 = Current drive MessageDlg(Current drive and

35、directory: + s, mtInformation, mbOk , 0);end;“GetFormatSettings GetFormatSettings; 重新设置时间和资料的格式参数使成为缺省值。“begingetdatetime(now);betformatsettings;end;“GetMem GetMem(Var P : Pointer ; Size : Integer); 创建一个动态变量和一个指向地址块的指针。 “var F: file;Size: Integer;Buffer: Pchar;beginAssignFile(F, test.txt);Reset(F, 1

36、);try Size := FileSize(F);GetMem(Buffer, Size);try BlockRead(F, Buffer, Size);ProcessFile(Buffer, Size);finally FreeMem“GetMemoryManager GetMemoryManager(Var MemMgr : TMemoryManager); 返回安装在内存管理器中的当前的全部指针。 “var GetMemCount: Integer;FreeMemCount: Integer;ReallocMemCount: Integer;OldMemMgr: TMemoryMana

37、ger;function NewGetMem(Size: Integer): Pointer;beginInc(GetMemCount);Result := OldMemMgr.GetMem(Size);end;function NewFreeMem(P: Pointe“GetHeapStatusGetHeapStatus:TheapStatus; 返回内存管理器的当前状态。 “procedure tform1.button1click(sender:tobject);procedure addfmt(const fmt:string;args;array of const)l beginme

38、mo1.lines.add(format(fmt,args);end;var status:theapstatus;beginstatus:=getheapstatus;addfmt(totaladdrspace=%d,status.t“GraphicFilter GraphicFilter(GraphicClass : TGraphicClass):String; 返回一个与打开或保存对话框过滤器属性相一致的过滤器字符串。 “SavePictureDialog1.DefaultExt := GraphicExtension(Tbitmap);SavePictureDialog1.Filter

39、 := GraphicFilter(Tbitmap);if SavePictureDialog1.Execute then“GradToRad GradToRad(Grads : Extended):Extended; 将梯度转换成为弧度值 “var grad:extended;r:extended;beginr:=gradtorad(grad);end;“Halt Halt(Exitcode : Integer); 将一个程序非正常的终止。参数 exitcode 是一个正的表达式，表示程序的退出码。 “beginif 1=1 then beginif 2=1 then beginif 3=3

40、 then beginhalt(1);end;end;end;canvas.textout(10,10this will not de executed);end;“High High(X); 返回一个在范围内的最大变量值。 “function Sum( var X: array of Double):Double;var I: Word;S: Real;beginS := 0;for I := 0 to High(X) do S := S + XI;Sum := S;end;procedure TForm1.Button1Click(Sender: Tobject);var List1: a

41、rray03 of Double;List2: array5“Hypot Hypot(X,Y:Extended):Extended; 计算直角三角形斜边的长度。 “varx:real;y:rea;s:extended;beginx=133.4y:=435.4s:=hypot(x,y);end;“ln ln(X : Real):Real; 求一个数的自然对数。 “Vare : real;S : string;begine := Exp(1.0);Str(ln(e):3:2, S);S := e = + FloatToStr(e) + ;ln(e) = + S;Canvas.TextOut(10,

42、 10, S);end;“Inc Inc(Var X;N:Longint); 将变量递增=S+1。但是运算速度比左式快。 “varintvar:integer;longintvar:longint;begininc(intvar);intvar:=intvar+1inc(longintvar,5);longintvar:=longintvar+5 end;“Include Include(Var S : set of T;I:T); 将一个元素加载到一个集合中。 “type tfontstyleproperty=class(tsetproperty)public procedure edit;

43、override;end; procedure tfontstyproperty.edit;var style:tfontstyles;beginstyle:=tfontstyles(byte(getordvalue);if fsbold in style then exclude(style,fsbold) else “IncMonthIncMonth(Const Date : TdateTime ; NumberOfMonths : Integer):TdateTime; 返回对于一个指定月份数的日期。 “var datetime:tdatetime;begindatetime:=incm

44、onth(date();9);end;“Initialize Initialize(Var V ; Count : Integer); 初始化一个动态分配变量。 “beginApplication.Initialize;with TForm5.Create(nil) do try ProgressBar1.Max := 100;Show;Update;Application.CreateForm(TForm1, Form1);ProgressBar1.StepBy(25);Application.CreateForm(TForm2, Form2);ProgressBar1.StepBy(25)

45、;Applicati“InputBox InputBox(Const Acaption , Aprompt , Adefault : String):String; 显示一个输入编辑对话框以方便用户可以输入一个字符串。 “var inputstring:string;begininputstring:=inputbox(input box,prompt,default string);“InputQuery InputQuery(Const Acaption , Aprompt : String ; Var Value : String):Boolean; 弹出一个输入对话框使用户可以输入一个

46、字符串。 “var newstring:string;clickedok:Boolean;beginnewstring:=Default string;ledel1.caption:=newstring;clickedok:=inputquery(input box,prompt,newstring);if clickedok then label1.caption:=the new string is+newstring+“Insert Insert (Source : String ; Var S :string ; Index : integer);将某个字符串（S）插入的另一个字符串中

47、（Source） 。 “varS: string; beginS := Honest Lincoln; Insert(Abe , S, 8); Honest Abe Lincoln end;“Int Int(X : Extended ):Extended; 返回实数的整数部分。 “varR: Real;beginR := Int(123.456); 123.0 R := Int(-123.456); -123.0 end;“IntPower IntPower(Base:Extended ; Exponent : Integer):Extended; 计算指数幂的基数。“var a:extend

48、ed;begina:=intpower(10E4,4);end;“IntToHexIntToHex(Value:Integer;Digits:integer):String; 将一个十进制数转换成为一个十六进制数。 “procedure TForm1.Button1Click(Sender: Tobject);var i: Integer;beginLabel1.Caption := ;for I := 1 to Length(Edit1.Text) do begintry Label1.Caption := Label1.Caption + IntToHex(Edit1.Texti,4) +

49、 ;except Beep;end;end;end;“IntToStr IntToStr(Value:Integer):String; 将一个整数转换成为一个字符串 “procedure TForm1.Button1Click(Sender: Tobject);begintry Label1.Caption := IntToStr(StrToInt(Edit1.Text) * StrToInt(Edit2.Text);except ShowMessage(You must specify integer values. Please try again.);end;end;“IOResult IOResult:Integer; 返回文件输入/输出处理是否发生了错误。 “varF: file of Byte;beginif OpenDialog1.Execute then beginAssignF