Delphi函數(shù)大全

1、Delphi函數(shù)大全functionLanguages:TLanguages;$返回系統(tǒng)語(yǔ)言對(duì)象通過此函數(shù)可以得到系統(tǒng)的語(yǔ)言環(huán)境type例子12a12c12a12c.:=IsVaIidldent;functionIntToStr(VaIue:Integer):string;overIoad;$functionIntToStr(VaIue:Int64):string;overIoad;$功能返回整數(shù)Value轉(zhuǎn)換成字符串Format(%d,VaIue)function:二IntToStr;首目功目說(shuō)能參明例考functionIntToHex(VaIue:Integer;Digits:Intege

2、r):string;overIoad;$functionIntToHex(VaIue:Int64;Digits:Integer):string;overIoad;$返回整數(shù)VaIue轉(zhuǎn)換成十六進(jìn)制表現(xiàn)結(jié)果；Format。.*xDigits,Value)Digits指定字符最小寬度；最小寬度不足時(shí)將用0填充function:二IntToHex,functionStrToInt(constS:string):Integer;$功能返回字符串S專換成整數(shù)字符串非整數(shù)表達(dá)時(shí)將引起異常procedure:=StrToInt;functionStrToIntDef(constS:string;Defaul

3、t:Integer):Integer;$功能返回字符串s專換成整數(shù)字符串非整數(shù)表達(dá)時(shí)則返回默認(rèn)值Defaultprocedure:=StrToIntDeff0);functionTryStrToInt(constS:string;outValue:Integer):Boolean;$功能返回字符串s專換成整數(shù)Value是否成功說(shuō)明字符串非整數(shù)表達(dá)時(shí)返回False并且Value將輸出為0procedure例子打開失敗則返回負(fù)數(shù)function例子xe參考function;function例子kExtractFileExt;首音BfunctionExpandFiIeName(constFiIeNa

4、me:string):string;$功能返回文件名的完整表示說(shuō)明ExpandFileNameC)=C:ProgramFiIesBorIandDeIphi6Projects參考function例子:-ExpandFiIeName;首音6functionExpandFiIeNameCase(constFiIeName:string;outMatchFound:TFiIenameCaseMatch):string;$功能分情況返回文件名的完整表示說(shuō)明typeTFiIenameCaseMatch=(mkNone,mkExactMatch,mkSingleMatch,mkAmbiguous);參考fu

5、nction;function;function例子.；獲取失敗則返回7參考function例子:=DiskFree;首音BfunctionDiskSize(Drive:Byte):Int64;$功能返回驅(qū)動(dòng)器全部空間說(shuō)明參數(shù)Drive為0表示當(dāng)前路徑，為1表示二人驅(qū)，為2表示二8驅(qū)；獲取失敗則返回7參考function列子:=DiskSize;首部functionFileDateToDateTime(FiIeDate:Integer):TDateTime;$功能返回將文件日期時(shí)間類型轉(zhuǎn)換日期時(shí)間類型說(shuō)明FileDate非法是將觸發(fā)異常參考function;function例子參見FileAg

6、e首部functionDateTimeToFiIeDate(DateTime:TDateTime):Integer;$功能返回將日期時(shí)間類型轉(zhuǎn)換文件日期時(shí)間類型說(shuō)明年份在1980到2107之外則返回0參考function;function例子參見FileSetDate首部functionGetCurrentDir:string;$功能返回當(dāng)前操作目錄說(shuō)明注意調(diào)用文件對(duì)話框會(huì)改變當(dāng)前操作目錄參考function例子：二GetCurrentDir;functionSetCurrentDir(constDir:string):BooIean;$功能返回設(shè)置當(dāng)前操作目錄是否成功說(shuō)明注意調(diào)用文件對(duì)話框會(huì)

7、改變當(dāng)前操作目錄function:=SetCurrentDir;functionCreateDir(constDir:string):Boolean;$功能返回創(chuàng)建目錄是否成功說(shuō)明不支持多級(jí)目錄；已經(jīng)存在則返回Falsefunction:二CreateDir;functionRemoveDir(constDir:string):BooIean;$返回刪除目錄是否成功部能明考子 部能明考子旨叨兌參列旨叨兌參列必須是空目錄function:二RemoveDir;functionStrLen(constStr:PChar):CardinaI;$返回指針字符串的長(zhǎng)度當(dāng)指針字符串Str為niI時(shí)將觸發(fā)異

8、常:=StrLen(PChar);首首BfunctionStrEnd(constStr:PChar):PChar;$功能返回指針字符串的結(jié)尾說(shuō)明當(dāng)指針字符串Str為niI時(shí)將觸發(fā)異常參考例子:二StrEnd(PChar)一;functionStrMove(Dest:PChar;constSource:PChar;Count:Cardinal):PChar;$功能返回將指針字符串Source指定內(nèi)存數(shù)量Count復(fù)制覆蓋到指針字符串Dest中說(shuō)明Dest沒有分配資源將觸發(fā)異常sfunction例子255ofChar;beginStrECopy(StrECopy(vBuffer,PChar),PC

9、har);:二vBuffer;end;255ofChar;beginStrLCopy(vBuffer,PChar,;:二vBuffer;end;255ofChar;beginStrPCopy(vBuffer,PChar);:二vBuffer;end;255ofChar;beginStrPLCopy(vBuffer,;:二vBuffer;end;255ofChar;beginStrPCopy(vBuffer,;StrCat(vBuffer,PChar);:二vBuffer;end;255ofChar;beginStrPCopy(vBuffer,;StrLCat(vBuffer,PChar,;:二

10、vBuffer;end;2005-7-26摘要類型Format(x=%d12);3f,);f(5,);d12);x12);0000C255ofChar;E:Extended;beginE:=StrToFloatDef,0);:二FIoatToText(vBuffer,E,fvExtended,ffNumber,;:二Copy(vBuffer,1,;end;O,90)=1,234,567,參考function例子：二FormatFloat,StrToFloatDef,0);首部functionFormatCurr(constFormat:string;Value:Currency):string

11、;$功能返回貨幣類型以指定格式字符串Format轉(zhuǎn)換成字符串說(shuō)明FormatCurr(,.00,90)=1,234,567,參考function例子：二FormatCurr,StrToCurrDef,0);functionFIoatToTextFmt(Buf:PChar;constValue;VaIueType:TFIoatVaIue;Format:PChar):Integer;$功能返回浮點(diǎn)數(shù)以指定格式字符串Format轉(zhuǎn)換成指針字符串的內(nèi)存大小說(shuō)明ValueType指定無(wú)類型參數(shù)Value的類型參考NULL例子255ofChar;E:Extended;beginE:=StrToFloatD

12、ef,0);:=FIoatToTextFmt(vBuffer,E,fvExtended,PChar);:二Copy(vBuffer,1,;end;7ofstring二(星期天星期一星期二星期三，星期四星期五星期六)；begin:=cWeekCnDayOfWeek(Now);end;2002-03-092002年03月09H255ofChar;beginExceptionErrorMessage(SeIf,SeIfrvBuffer,255);Caption:=vBuffer;end;,*1)=16參考function;function例子：二LastDeIimiterF;首部functionAn

13、siCompareFiIeName(constS1,S2:string):Integer;$功能返回比較兩個(gè)文件名說(shuō)明當(dāng)S1S2返回值0;當(dāng)SKS2返回值0;當(dāng)S1=S2返回值二0;區(qū)分大小寫參考function例子：二AnsiCompareFiIeName,;首部functionSameFiIeName(constS1,S2:string):BooIean;$功能返回兩個(gè)文件名是否相等說(shuō)明區(qū)分大小寫參考function例子：二SameFiIeName,;首部functionAnsiLowerCaseFiIeName(constS:string):string;$功能返回小寫文件名說(shuō)明在非多字

14、節(jié)字符系統(tǒng)上相當(dāng)于AnsiLowerCase參考function例子：二AnsiLowerCaseFiIeName;首部functionAnsiUpperCaseFiIeName(constS:string):string;$功能返回大寫文件名說(shuō)明在非多字節(jié)字符系統(tǒng)上相當(dāng)于AnsiUppercase參考function例子:二AnsiUpperCaseFiIeName;首音BfunctionAnsiPos(constSubstr,S:string):Integer;$功能返回子串Substr在字符中第一次出現(xiàn)的位置說(shuō)明不存在則返回0爹苦例子:二AnsiPos,;functionAnsiStrP

15、os(StrrSubStr:PChar):PChar;$部能明考子苜叨兌參列返回指針子串Substr在指針字符中第一次出現(xiàn)的指針位置不存在則返回niIfunction:=AnsiStrPos(PChar,PChar);部能明考子首叨兌參列functionAnsiStrRScan(Str:PChar;Chr:Char):PChar;$返回在指針字符串Str搜索字符Chr最后一個(gè)出現(xiàn)的地址支持多字節(jié)字符系統(tǒng)；AnsiStrRScan(function:=AnsiStrScan(PChar,首部functionAnsiStrScan(Str:PChar;Chr:Char):PChar;$功能返回在指

16、針字符串Str搜索字符Chr第一個(gè)出現(xiàn)的地址說(shuō)明支持多字節(jié)字符系統(tǒng)；AnsiStrRScan參考function例子-AnsiStrScan(PChar,J);首苜BfunctionStringRepIace(constS,OldPattern,NewPattern:string;Flags:TReplaceFlags):string;$功能返回替換后的字符串說(shuō)明rfReplaceAlI為替換全部?jī)?nèi)容；rflgnoreCase為忽略大小寫參考function;function;function例子/BeginStringRepIaceprocedure(Sender:TObject);begi

17、nr:=StringReplace,);,rfRepIaceAlI:=StringRepIace,rfRepIaceAII);1rfIgnoreCase1:二StringRepIace,rfIgnoreCase);1rfRepIaceAl11rfIgnoreCase1:=StringRepIace,rfRepIaceAII,rfIgnoreCase);end;/EndStringRepIace首部functionWrapText(constLine,BreakStr:string;constBreakChars:TSysCharSet;MaxCoI:Integer):string;overIo

18、ad;$首部functionWrapText(constLine:string;MaxCoI:Integer=45):string;overload;$功能返回對(duì)字符串自動(dòng)換行說(shuō)明Resu11:=WrapText(Line,sLineBreak,#9,MaxCoI);參考function;function例子：二WrapText,;首部functionFindCmdLineSwitch(constSwitch:string;constChars:TSysCharSet;IgnoreCase:BooIean):BooIean;overIoad;$首部functionFindCmdLineSwit

19、ch(constSwitch:string):BooIean;overIoad;$首部functionFindCmdLineSwitch(constSwitch:string;IgnoreCase:Boolean):Boolean;overIoad;$功能返回程序命令參數(shù)是否找到說(shuō)明Result:二FindCmdLineSwitch(Switch,SwitchChars,True);function;function;function參考例子：=FindCmdLineSwitch;首部procedureFreeAndNiI(varObj);$功能釋放對(duì)象Obj并賦為空說(shuō)明如果對(duì)象已經(jīng)釋放資源將

20、觸發(fā)異常參考type例子/BeginFreeAndNiIprocedure(Sender:TObject);varTemp:TObject;beginTemp:二；ShowMessage(Format(%p,Pointer(Temp);Temp:二;FreeAndNiI(Temp);ShowMessage(Format(%p,Pointer(Temp);end;/EndFreeAndNiI首部 funct i onSupports (constInstance:I Interface; const I ID: TGUID; out Intf): Boolean;overIoad;$首部$ 首部

21、funct i onfunct i onSupports (constSupports (constInstance:Instance:TObject; const I ID: TGUID; out Intf): Boolean; over load;I Interface; const I ID: TGUID): Boolean; over load; $首部funct i onSupports (constInstance:TObject; const I ID: TGUID): Boolean; over Ioad; $首部funct i on Supports (const AC I

22、ass:TCI ass; const I ID: TGUID): Boolean; over Ioad; $功能說(shuō)明返回對(duì)象是否支持指定的接口Result : = (l ID) Oni I;參考type例子首部functionCreateGUID(outGuid:TGUID):HResu11;$功能返回創(chuàng)建全局標(biāo)識(shí)是否成功說(shuō)明返回S_OK表示成功參考function例子/BeginCreateGUIDprocedure(Sender:TObject);varvGUID:TGUID;beginCreateGUID(vGUID);:=GUIDToString(vGUID);end;/EndCrea

23、teGUID首部functionStringToGUID(constS:string):TGUID;$功能返回字符串S專換成全局標(biāo)識(shí)說(shuō)明如果字符串非法將觸發(fā)異常參考fuction例子:=GUIDToString(StringToGUID);首部functionGUIDToString(constGUID:TGUID):string;$功能返回全局標(biāo)識(shí)GUID轉(zhuǎn)換成字符串說(shuō)明參考fuction例子:=GUIDToString(StringToGUID);首部functionlsEqualGUID(constguidl,guid2:TGUID):Boolean;$功能返回兩個(gè)全局標(biāo)識(shí)是否相同說(shuō)明f

24、unctionIsEqualGUID;externaInameIsEquaIGUID,;參考例子:=IsEquaIGUID(StringToGUIDfStringToGUID);首音BfunctionLoadPackage(constName:string):HMODULE;$功能返回載入包資源說(shuō)明參考function;function;function例子首部procedureUnIoadPackage(ModuIe:HMODULE);$功能取消載入包資源說(shuō)明參考function;function例子一首部procedureGetPackageInfo(ModuIe:HMODULE;Para

25、m:Pointer;varFlags:Integer;InfoProc:TPackageInfoProc);$功能返回包的信息說(shuō)明參考例子首部functionGetPackageDescription(ModuIeName:PChar):string;$功能返回包的描述說(shuō)明參考function;function例子首部procedureInitializePackage(ModuIe:HMODULE);$功能初始化包說(shuō)明參考function例子首部procedureFinalizePackage(ModuIe:HMODULE);$功能終止化包說(shuō)明參考function例子首音Bprocedure

26、RaiseLastOSError;$功能觸發(fā)操作系統(tǒng)的最后一個(gè)異常說(shuō)明如果沒有出現(xiàn)異常則默認(rèn)調(diào)用Api函數(shù)異常參考function例子RaiseLastOSError;首首BprocedureRaiseLastWin32Error;deprecated;$功能觸發(fā)Win32系統(tǒng)的最后一個(gè)異常說(shuō)明如果沒有出現(xiàn)異常則默認(rèn)調(diào)用Api函數(shù)異常參考function;例子RaiseLastWin32Error;首音BfunctionWin32Check(RetVaI:BOOL):BOOL;platform;$功能返回檢測(cè)調(diào)用系統(tǒng)Api函數(shù)返回結(jié)果說(shuō)明如果RetVaI為FaIse則觸發(fā)異常參考functio

27、n例子：二Win32check;首部procedureAddTerminateProc(TermProc:TTerminateProc);$功能添加一個(gè)退出過程到系統(tǒng)中說(shuō)明執(zhí)行AddTerminateProc(niI)將導(dǎo)致系統(tǒng)異常參考const例子/BeginAddTerminateProcfunctionNewTerminateProc:BooIean;beginResult:二True;ShowMessage(NewTerminateProc1);end;procedure(Sender:TObject);beginAddTerminateProc(NewTerminateProc);end;/EndA