Delphi函數(shù)大全

1、delphi函數(shù)大全首部 function languages: tlanguages; $sysutils.pas功能 返回系統(tǒng)語言對象說明 通過此函數(shù)可以得到系統(tǒng)的語言環(huán)境參考 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功能 返回一個(gè)指定大小size的內(nèi)存塊說明 配合用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功能 添加一個(gè)退出處理的過程說明 建議用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功能 返回一個(gè)新的字符串指針地址說明 字符串s為空時(shí)返回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資源說明 配合函數(shù)newstr使用參考 procedure system.dispose例子 首部 procedure assignstr(var p: pstring; const s: string); deprecated; $sysutils.pas功能 將字符串s更新給字符串指針p說明 更新值時(shí)會釋放以前字符串指針的資源參考 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說明 相當(dāng)于dest := dest + s;delphi6已經(jīng)不建議使用參考 例子 /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功能 返回比較兩個(gè)

9、字符說明 當(dāng)s1s2返回值0;當(dāng)s1s2返回值0;當(dāng)s1=s2返回值=0;區(qū)分大小寫參考 例子 spinedit1.value := comparestr(edit1.text, edit2.text); 首部 function comparemem(p1, p2: pointer; length: integer): boolean; assembler; $sysutils.pas功能 返回比較兩個(gè)內(nèi)存指針說明 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功能 返回比較兩個(gè)字符串說明 不區(qū)分大小寫參考 例子 spinedit1.value := comparetext(edit1.text, edit2.text); 首部 function sametext(const s1, s2: string): boolean; $sysutils.pas功能 返回兩個(gè)字符串是否相等說明 不區(qū)分大小寫參考 例子 ch

11、eckbox1.checked := sametext(edit1.text, edit2.text); 首部 function ansiuppercase(const s: string): string; $sysutils.pas功能 返回字符串s的大寫形式說明 ansi(american national standards institute)美國國家標(biāo)準(zhǔn)協(xié)會;非小寫的字符不變參考 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功能 反回比較兩個(gè)字符串說明 當(dāng)s1s2返回值0;當(dāng)s1s2返回值s2返回值0;當(dāng)s1s2返回值s2返回值0;當(dāng)s1s2返回值s2返回值0;當(dāng)s1s2返回值s2返回值0;當(dāng)s1s2返

13、回值s2返回值0;當(dāng)s1s2返回值s2返回值0;當(dāng)s1s2返回值s2返回值0;當(dāng)s1s2返回值0;當(dāng)s1=s2返回值=0;不區(qū)分大小寫參考 function windows.comparestringw例子 spinedit1.value := widecomparetext(edit1.text, edit2.text);首部 function widesametext(const s1, s2: widestring): boolean; $sysutils.pas功能 返回兩個(gè)雙字節(jié)字符串是否相同說明 不區(qū)分大小寫參考 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中的表現(xiàn)形式說明 單引號中的一個(gè)單引號將轉(zhuǎn)成兩個(gè)參考 procedure

17、 system.insert例子 edit2.text := quotedstr(edit1.text);首部 function ansiquotedstr(const s: string; quote: char): string; $sysutils.pas功能 返回字符串s以字符quote為引號的表現(xiàn)形式說明 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為引號的表現(xiàn)形式原形說明 表現(xiàn)形式非法時(shí)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為引號的表現(xiàn)形式原形說明 表現(xiàn)形式非法時(shí)則返回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功能 返回將給定字符串的行分隔符調(diào)整為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是否是正確的標(biāo)識符說明 標(biāo)識符:字母|下劃線字母|下劃線|數(shù)字.參考 例子 checkbox1.checked := isvalidident(edit1.text);首部 function inttostr(value: integer): string; overload; $sysutils.pas首部 function inttostr(value: int64): string; overload; $sysutils.pas功能 返回整數(shù)val

22、ue轉(zhuǎn)換成字符串說明 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功能 返回整數(shù)value轉(zhuǎn)換成十六進(jìn)制表現(xiàn)結(jié)果;format(%

23、.*x, digits, value)說明 參數(shù)digits指定字符最小寬度;最小寬度不足時(shí)將用0填充參考 function sysutils.fmtstr例子 edit2.text := inttohex(spinedit1.value, spinedit2.value);首部 function strtoint(const s: string): integer; $sysutils.pas功能 返回字符串s轉(zhuǎn)換成整數(shù)說明 字符串非整數(shù)表達(dá)時(shí)將引起異常參考 procedure system.val例子 spinedit1.value := strtoint(edit1.text);首部 f

24、unction strtointdef(const s: string; default: integer): integer; $sysutils.pas功能 返回字符串s轉(zhuǎn)換成整數(shù)說明 字符串非整數(shù)表達(dá)時(shí)則返回默認(rèn)值default參考 procedure system.val例子 spinedit1.value := strtointdef(edit1.text, 0);首部 function trystrtoint(const s: string; out value: integer): boolean; $sysutils.pas功能 返回字符串s轉(zhuǎn)換成整數(shù)value是否成功說明 字

25、符串非整數(shù)表達(dá)時(shí)返回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轉(zhuǎn)換

26、成六十四位整數(shù)說明 字符串非六十四位整數(shù)表達(dá)時(shí)將引起異常參考 procedure system.val例子 spinedit1.value := strtoint64(edit1.text);首部 function strtoint64def(const s: string; const default: int64): int64; $sysutils.pas功能 返回字符串s轉(zhuǎn)換成六十四位整數(shù)說明 字符串非六十四位整數(shù)表達(dá)時(shí)則返回默認(rèn)值default參考 procedure system.val例子 spinedit1.value := strtoint64def(edit1.text,

27、0);首部 function trystrtoint64(const s: string; out value: int64): boolean; $sysutils.pas功能 返回字符串s轉(zhuǎn)換成六十四位整數(shù)value是否成功說明 字符串非六十四位整數(shù)表達(dá)時(shí)返回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轉(zhuǎn)換成邏輯值說明 字符非邏輯表達(dá)時(shí)將引起異常參考 function sysutils.trystrtobool例子 checkbox1.checked := strtobool(edit1.text);首部 function strtobooldef(const s: string; const default: boolean): boolean

29、; $sysutils.pas功能 返回字符串s轉(zhuǎn)換成邏輯值說明 字符非邏輯表達(dá)時(shí)則返回默認(rèn)值default參考 function sysutils.trystrtobool例子 checkbox1.checked := strtobooldef(edit1.text, false);首部 function trystrtobool(const s: string; out value: boolean): boolean; $sysutils.pas功能 返回字符串s轉(zhuǎn)換成邏輯值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轉(zhuǎn)換成字符串說明 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功能 返回根據(jù)標(biāo)識ident的字符串資源說明 字符串資源是指程序的內(nèi)部資源參考 function sysutils.findstringresource例子 edit2.text := loadstr(strtointdef(edit1.text, 0);首部 function fmtloadstr(i

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

36、openreadwrite.);打開失敗則返回負(fù)數(shù)參考 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功能 返回創(chuàng)建文件說明 創(chuàng)建失敗則返回負(fù)數(shù)參考 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功能 返回讀取文件緩沖區(qū)的大小說明 讀取失敗則返回負(fù)數(shù)參考 function windows.readfile例子 首部 function filewrite(handle: integer; const buffer; count: longword): integer; $sysutils.pas

39、功能 返回寫入文件緩沖區(qū)的大小說明 寫入失敗則返回負(fù)數(shù)參考 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指定原點(diǎn)(origin為0時(shí)指文件首;為1時(shí)指當(dāng)前位置;為2時(shí)指文件尾)參考 function windows.setfilepointer例子 首部 procedure fileclose(handle: integer); $sysutils.pas功能 返回關(guān)閉文件說明 不關(guān)閉打開的文件會占用系統(tǒng)資源參考 function windows.closehandle例子 首部 function fileage(const filename: string): integer; $sysutils.pas功能