Delphi函数大全

1、delphi函数大全首部 function languages: tlanguages; $sysutils.pas功能 返回系统语言对象说明 通过此函数可以得到系统的语言环境参考 type sysutils.tlanguages例子 /begin languagesprocedure tform1.button1click(sender: tobject);var i: integer;begin memo1.clear; for i := 0 to languages.count - 1 do memo1.lines.add(languages.namei);end;/end langua

2、ges 首部 function allocmem(size: cardinal): pointer; $sysutils.pas功能 返回一个指定大小size的内存块说明 配合用freemem释放资源参考 function system.getmem例子 /begin allocmemprocedure tform1.button1click(sender: tobject);var i: pinteger;begin i := allocmem(sizeof(integer); i := 100; edit1.text := inttostr(i); freemem(i, sizeof(in

3、teger);end;/end allocmem 首部 procedure addexitproc(proc: tprocedure); $sysutils.pas功能 添加一个退出处理的过程说明 建议用finalization部分取代参考 例子 /begin addexitprocuses shellapi;procedure exitproc;begin shellexecute(0, open, calc.exe, nil, nil, sw_show);end;procedure tform1.button1click(sender: tobject);begin addexitproc

4、(exitproc);end;/end addexitproc 首部 function newstr(const s: string): pstring; deprecated; $sysutils.pas功能 返回一个新的字符串指针地址说明 字符串s为空时返回nullstr参考 procedure system.new例子 /begin newstr,disposestrprocedure tform1.button1click(sender: tobject);var p: pstring;begin p := newstr(edit1.text); edit2.text := p; di

5、sposestr(p);end;/end newstr,disposestr 首部 procedure disposestr(p: pstring); deprecated; $sysutils.pas功能 释放字符串指针p资源说明 配合函数newstr使用参考 procedure system.dispose例子 首部 procedure assignstr(var p: pstring; const s: string); deprecated; $sysutils.pas功能 将字符串s更新给字符串指针p说明 更新值时会释放以前字符串指针的资源参考 function sysutils.n

6、ewstr;function sysutils.disposestr例子 /begin assignstrprocedure tform1.button1click(sender: tobject);var p: pstring;begin p := nil; assignstr(p, edit1.text); edit2.text := p; disposestr(p);end;/end assignstr 首部 procedure appendstr(var dest: string; const s: string); deprecated; $sysutils.pas功能 在字符串de

7、st后追加字符串s说明 相当于dest := dest + s;delphi6已经不建议使用参考 例子 /begin appendstrprocedure tform1.button1click(sender: tobject);var s: string;begin s := edit2.text; appendstr(s, edit1.text); edit2.text := s;end;/end appendstr 首部 function uppercase(const s: string): string; $sysutils.pas功能 返回字符串s的大写形式说明 非小写字符不处理参

8、考 procedure system.setlength例子 edit2.text := uppercase(edit1.text); 首部 function lowercase(const s: string): string; $sysutils.pas功能 返回字符串s的小写形式说明 非大写字符不处理参考 procedure system.setlength例子 edit2.text := lowercase(edit1.text); 首部 function comparestr(const s1, s2: string): integer; $sysutils.pas功能 返回比较两个

9、字符说明 当s1s2返回值0;当s1s2返回值0;当s1=s2返回值=0;区分大小写参考 例子 spinedit1.value := comparestr(edit1.text, edit2.text); 首部 function comparemem(p1, p2: pointer; length: integer): boolean; assembler; $sysutils.pas功能 返回比较两个内存指针说明 comparemem(pchar(12a), pchar(12c), 2)=true;comparemem(pchar(12a), pchar(12c), 3)=false参考 例

10、子 checkbox1.checked := comparemem(self, form1, 8); 首部 function comparetext(const s1, s2: string): integer; $sysutils.pas功能 返回比较两个字符串说明 不区分大小写参考 例子 spinedit1.value := comparetext(edit1.text, edit2.text); 首部 function sametext(const s1, s2: string): boolean; $sysutils.pas功能 返回两个字符串是否相等说明 不区分大小写参考 例子 ch

11、eckbox1.checked := sametext(edit1.text, edit2.text); 首部 function ansiuppercase(const s: string): string; $sysutils.pas功能 返回字符串s的大写形式说明 ansi(american national standards institute)美国国家标准协会;非小写的字符不变参考 function windows.charupperbuff例子 edit2.text := ansiuppercase(edit1.text);首部 function ansilowercase(con

12、st s: string): string; $sysutils.pas功能 返回字符串s的小写形式说明 非大写字符不处理参考 function windows.charlowerbuff例子 edit2.text := ansilowercase(edit1.text);首部 function ansicomparestr(const s1, s2: string): integer; $sysutils.pas功能 反回比较两个字符串说明 当s1s2返回值0;当s1s2返回值s2返回值0;当s1s2返回值s2返回值0;当s1s2返回值s2返回值0;当s1s2返回值s2返回值0;当s1s2返

13、回值s2返回值0;当s1s2返回值s2返回值0;当s1s2返回值s2返回值0;当s1s2返回值0;当s1=s2返回值=0;不区分大小写参考 function windows.comparestringw例子 spinedit1.value := widecomparetext(edit1.text, edit2.text);首部 function widesametext(const s1, s2: widestring): boolean; $sysutils.pas功能 返回两个双字节字符串是否相同说明 不区分大小写参考 function sysutils.widecomparetext例

14、子 checkbox1.checked := widesametext(edit1.text, edit2.text); 首部 function trim(const s: string): string; overload; $sysutils.pas首部 function trim(const s: widestring): widestring; overload; $sysutils.pas功能 返回除去字符串s左右不可见字符说明 小于#32的字符看作不可见字符参考 function system.copy例子 edit2.text := trim(edit1.text);首部 fun

15、ction trimleft(const s: string): string; overload; $sysutils.pas首部 function trimleft(const s: widestring): widestring; overload; $sysutils.pas功能 返回除去字符串s左边不可见字符说明 小于#32的字符看作不可见字符参考 function system.copy例子 edit2.text := trimleft(edit1.text);首部 function trimright(const s: string): string; overload; $sy

16、sutils.pas首部 function trimright(const s: widestring): widestring; overload; $sysutils.pas功能 返回除去字符串s右边不可见字符说明 小于#32的字符看作不可见字符参考 function system.copy例子 edit2.text := trimright(edit1.text);首部 function quotedstr(const s: string): string; $sysutils.pas功能 返回字符串s在pascal中的表现形式说明 单引号中的一个单引号将转成两个参考 procedure

17、 system.insert例子 edit2.text := quotedstr(edit1.text);首部 function ansiquotedstr(const s: string; quote: char): string; $sysutils.pas功能 返回字符串s以字符quote为引号的表现形式说明 ansiquotedstr(helloworld, )=helloworld;ansiquotedstr(helloworld, )=helloworld参考 function sysutils.ansistrscan例子 edit2.text := ansiquotedstr(e

18、dit1.text, );首部 function ansiextractquotedstr(var src: pchar; quote: char): string; $sysutils.pas功能 返回以字符quote为引号的表现形式原形说明 表现形式非法时src不变否则为空参考 function sysutils.ansistrscan例子/begin ansiextractquotedstrprocedure tform1.button1click(sender: tobject);var p: pchar;begin p := pchar(edit1.text); edit2.text

19、 := ansiextractquotedstr(p, ); edit3.text := p;end;/end ansiextractquotedstr首部 function ansidequotedstr(const s: string; aquote: char): string; $sysutils.pas功能 返回以字符aquote为引号的表现形式原形说明 表现形式非法时则返回s参考 function sysutils.ansiextractquotedstr例子 edit2.text := ansidequotedstr(edit1.text, );首部 function adjus

20、tlinebreaks(const s: string; style: ttextlinebreakstyle = $ifdef linux tlbslf $endif $ifdef mswindows tlbscrlf $endif): string; $sysutils.pas功能 返回将给定字符串的行分隔符调整为cr/lf序列说明 adjustlinebreaks(1#132#13)=1#13#102#13#10;adjustlinebreaks(1#102#10)=1#13#102#13#10参考 function sysutils.strnextchar例子 首部 function

21、isvalidident(const ident: string): boolean; $sysutils.pas功能 返回字符串ident是否是正确的标识符说明 标识符:字母|下划线字母|下划线|数字.参考 例子 checkbox1.checked := isvalidident(edit1.text);首部 function inttostr(value: integer): string; overload; $sysutils.pas首部 function inttostr(value: int64): string; overload; $sysutils.pas功能 返回整数val

22、ue转换成字符串说明 format(%d, value)参考 function sysutils.fmtstr例子 edit2.text := inttostr(spinedit1.value);首部 function inttohex(value: integer; digits: integer): string; overload; $sysutils.pas首部 function inttohex(value: int64; digits: integer): string; overload; $sysutils.pas功能 返回整数value转换成十六进制表现结果;format(%

23、.*x, digits, value)说明 参数digits指定字符最小宽度;最小宽度不足时将用0填充参考 function sysutils.fmtstr例子 edit2.text := inttohex(spinedit1.value, spinedit2.value);首部 function strtoint(const s: string): integer; $sysutils.pas功能 返回字符串s转换成整数说明 字符串非整数表达时将引起异常参考 procedure system.val例子 spinedit1.value := strtoint(edit1.text);首部 f

24、unction strtointdef(const s: string; default: integer): integer; $sysutils.pas功能 返回字符串s转换成整数说明 字符串非整数表达时则返回默认值default参考 procedure system.val例子 spinedit1.value := strtointdef(edit1.text, 0);首部 function trystrtoint(const s: string; out value: integer): boolean; $sysutils.pas功能 返回字符串s转换成整数value是否成功说明 字

25、符串非整数表达时返回false并且value将输出为0参考 procedure system.val例子/begin trystrtointprocedure tform1.button1click(sender: tobject);var i: integer;begin checkbox1.checked := trystrtoint(edit1.text, i); spinedit1.value := i;end;/end trystrtoint首部 function strtoint64(const s: string): int64; $sysutils.pas功能 返回字符串s转换

26、成六十四位整数说明 字符串非六十四位整数表达时将引起异常参考 procedure system.val例子 spinedit1.value := strtoint64(edit1.text);首部 function strtoint64def(const s: string; const default: int64): int64; $sysutils.pas功能 返回字符串s转换成六十四位整数说明 字符串非六十四位整数表达时则返回默认值default参考 procedure system.val例子 spinedit1.value := strtoint64def(edit1.text,

27、0);首部 function trystrtoint64(const s: string; out value: int64): boolean; $sysutils.pas功能 返回字符串s转换成六十四位整数value是否成功说明 字符串非六十四位整数表达时返回false并且value将输出为0参考 procedure system.val例子/begin trystrtoint64procedure tform1.button1click(sender: tobject);var i: int64;begin checkbox1.checked := trystrtoint64(edit1

28、.text, i); spinedit1.value := i;end;/end trystrtoint64首部 function strtobool(const s: string): boolean; $sysutils.pas功能 返回字符串s转换成逻辑值说明 字符非逻辑表达时将引起异常参考 function sysutils.trystrtobool例子 checkbox1.checked := strtobool(edit1.text);首部 function strtobooldef(const s: string; const default: boolean): boolean

29、; $sysutils.pas功能 返回字符串s转换成逻辑值说明 字符非逻辑表达时则返回默认值default参考 function sysutils.trystrtobool例子 checkbox1.checked := strtobooldef(edit1.text, false);首部 function trystrtobool(const s: string; out value: boolean): boolean; $sysutils.pas功能 返回字符串s转换成逻辑值value是否成功说明 注意0为假非0为真;不是true和false;delphi6 bug 如下修正参考 fun

30、ction sysutils.ansisametext;var sysutils.trueboolstrs;var sysutils.falseboolstrs例子/begin trystrtoboolprocedure tform1.button1click(sender: tobject);var b: boolean;begin setlength(trueboolstrs, 2); setlength(falseboolstrs, 2); trueboolstrs0 := true; falseboolstrs0 := false; trueboolstrs1 := yes; fals

31、eboolstrs1 := no; checkbox1.checked := trystrtobool(edit1.text, b); checkbox2.checked := b;end;/end trystrtobool附加/begin trystrtoboolfunction trystrtobool(const s: string; out value: boolean): boolean; function comparewith(const aarray: array of string): boolean; var i: integer; begin result := fals

32、e; for i := low(aarray) to high(aarray) do if ansisametext(s, aarrayi) then begin result := true; break; end; end;var lresult: extended;begin result := trystrtofloat(s, lresult); if result then value := lresult 0 else begin result := true; /修正处 verifyboolstrarray; if comparewith(trueboolstrs) then v

33、alue := true else if comparewith(falseboolstrs) then value := false else result := false; end;end;/end trystrtobool首部 function booltostr(b: boolean; useboolstrs: boolean = false): string; $sysutils.pas功能 返回逻辑值b转换成字符串说明 booltostr(false, false)=0;booltostr(false, true)=-1参考 var sysutils.trueboolstrs;v

34、ar sysutils.falseboolstrs例子 edit1.text := booltostr(checkbox1.checked, checkbox2.checked);首部 function loadstr(ident: integer): string; $sysutils.pas功能 返回根据标识ident的字符串资源说明 字符串资源是指程序的内部资源参考 function sysutils.findstringresource例子 edit2.text := loadstr(strtointdef(edit1.text, 0);首部 function fmtloadstr(i

35、dent: integer; const args: array of const): string; $sysutils.pas功能 返回格式化的字符串资源说明 字符串资源是指程序的内部资源参考 function sysutils.fmtstr;function sysutils.findstringresource例子 ;首部 function fileopen(const filename: string; mode: longword): integer; $sysutils.pas功能 返回打开文件果说明 mode指定打开文件的模式(fmopenread,fmopenwrite,fm

36、openreadwrite.);打开失败则返回负数参考 function windows.createfile例子/begin fileopen,filecloseprocedure tform1.button1click(sender: tobject);var i: integer;begin i := fileopen(edit1.text, fmopenread); checkbox1.checked := i 0; fileclose(i);end;/begin fileopen,fileclose首部 function filecreate(const filename: stri

37、ng): integer; overload; $sysutils.pas首部 function filecreate(const filename: string; rights: integer): integer; overload; $sysutils.pas功能 返回创建文件说明 创建失败则返回负数参考 function windows.createfile例子/begin filecreateprocedure tform1.button1click(sender: tobject);var i: integer;begin i := filecreate(edit1.text);

38、 checkbox1.checked := i 0; fileclose(i);end;/end filecreate首部 function fileread(handle: integer; var buffer; count: longword): integer; $sysutils.pas功能 返回读取文件缓冲区的大小说明 读取失败则返回负数参考 function windows.readfile例子 首部 function filewrite(handle: integer; const buffer; count: longword): integer; $sysutils.pas

39、功能 返回写入文件缓冲区的大小说明 写入失败则返回负数参考 function windows.writefile例子 首部 function fileseek(handle, offset, origin: integer): integer; overload; $sysutils.pas首部 function fileseek(handle: integer; const offset: int64; origin: integer): int64; overload; $sysutils.pas功能 返回指定文件偏移量说明 offset指定偏移量;origin指定原点(origin为0时指文件首;为1时指当前位置;为2时指文件尾)参考 function windows.setfilepointer例子 首部 procedure fileclose(handle: integer); $sysutils.pas功能 返回关闭文件说明 不关闭打开的文件会占用系统资源参考 function windows.closehandle例子 首部 function fileage(const filename: string): integer; $sysutils.pas功能