Delphi函数大全

1、Delphi函数大全functionLanguages:TLanguages;$返回系统语言对象通过此函数可以得到系统的语言环境type例子12a12c12a12c.:=IsVaIidldent;functionIntToStr(VaIue:Integer):string;overIoad;$functionIntToStr(VaIue:Int64):string;overIoad;$功能返回整数Value转换成字符串Format(%d,VaIue)function:二IntToStr;首目功目说能参明例考functionIntToHex(VaIue:Integer;Digits:Intege

2、r):string;overIoad;$functionIntToHex(VaIue:Int64;Digits:Integer):string;overIoad;$返回整数VaIue转换成十六进制表现结果；Format。.*xDigits,Value)Digits指定字符最小宽度；最小宽度不足时将用0填充function:二IntToHex,functionStrToInt(constS:string):Integer;$功能返回字符串S专换成整数字符串非整数表达时将引起异常procedure:=StrToInt;functionStrToIntDef(constS:string;Defaul

3、t:Integer):Integer;$功能返回字符串s专换成整数字符串非整数表达时则返回默认值Defaultprocedure:=StrToIntDeff0);functionTryStrToInt(constS:string;outValue:Integer):Boolean;$功能返回字符串s专换成整数Value是否成功说明字符串非整数表达时返回False并且Value将输出为0procedure例子打开失败则返回负数function例子xe参考function;function例子kExtractFileExt;首音BfunctionExpandFiIeName(constFiIeNa

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

5、nction;function;function例子.；获取失败则返回7参考function例子:=DiskFree;首音BfunctionDiskSize(Drive:Byte):Int64;$功能返回驱动器全部空间说明参数Drive为0表示当前路径，为1表示二人驱，为2表示二8驱；获取失败则返回7参考function列子:=DiskSize;首部functionFileDateToDateTime(FiIeDate:Integer):TDateTime;$功能返回将文件日期时间类型转换日期时间类型说明FileDate非法是将触发异常参考function;function例子参见FileAg

6、e首部functionDateTimeToFiIeDate(DateTime:TDateTime):Integer;$功能返回将日期时间类型转换文件日期时间类型说明年份在1980到2107之外则返回0参考function;function例子参见FileSetDate首部functionGetCurrentDir:string;$功能返回当前操作目录说明注意调用文件对话框会改变当前操作目录参考function例子：二GetCurrentDir;functionSetCurrentDir(constDir:string):BooIean;$功能返回设置当前操作目录是否成功说明注意调用文件对话框会

7、改变当前操作目录function:=SetCurrentDir;functionCreateDir(constDir:string):Boolean;$功能返回创建目录是否成功说明不支持多级目录；已经存在则返回Falsefunction:二CreateDir;functionRemoveDir(constDir:string):BooIean;$返回删除目录是否成功部能明考子 部能明考子旨叨兑参列旨叨兑参列必须是空目录function:二RemoveDir;functionStrLen(constStr:PChar):CardinaI;$返回指针字符串的长度当指针字符串Str为niI时将触发异

8、常:=StrLen(PChar);首首BfunctionStrEnd(constStr:PChar):PChar;$功能返回指针字符串的结尾说明当指针字符串Str为niI时将触发异常参考例子:二StrEnd(PChar)一;functionStrMove(Dest:PChar;constSource:PChar;Count:Cardinal):PChar;$功能返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中说明Dest没有分配资源将触发异常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转换成字符串说明FormatCurr(,.00,90)=1,234,567,参考function例子：二FormatCurr,StrToCurrDef,0);functionFIoatToTextFmt(Buf:PChar;constValue;VaIueType:TFIoatVaIue;Format:PChar):Integer;$功能返回浮点数以指定格式字符串Format转换成指针字符串的内存大小说明ValueType指定无类型参数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;$功能返回比较两个文件名说明当S1S2返回值0;当SKS2返回值0;当S1=S2返回值二0;区分大小写参考function例子：二AnsiCompareFiIeName,;首部functionSameFiIeName(constS1,S2:string):BooIean;$功能返回两个文件名是否相等说明区分大小写参考function例子：二SameFiIeName,;首部functionAnsiLowerCaseFiIeName(constS:string):string;$功能返回小写文件名说明在非多字

14、节字符系统上相当于AnsiLowerCase参考function例子：二AnsiLowerCaseFiIeName;首部functionAnsiUpperCaseFiIeName(constS:string):string;$功能返回大写文件名说明在非多字节字符系统上相当于AnsiUppercase参考function例子:二AnsiUpperCaseFiIeName;首音BfunctionAnsiPos(constSubstr,S:string):Integer;$功能返回子串Substr在字符中第一次出现的位置说明不存在则返回0爹苦例子:二AnsiPos,;functionAnsiStrP

15、os(StrrSubStr:PChar):PChar;$部能明考子苜叨兑参列返回指针子串Substr在指针字符中第一次出现的指针位置不存在则返回niIfunction:=AnsiStrPos(PChar,PChar);部能明考子首叨兑参列functionAnsiStrRScan(Str:PChar;Chr:Char):PChar;$返回在指针字符串Str搜索字符Chr最后一个出现的地址支持多字节字符系统；AnsiStrRScan(function:=AnsiStrScan(PChar,首部functionAnsiStrScan(Str:PChar;Chr:Char):PChar;$功能返回在指

16、针字符串Str搜索字符Chr第一个出现的地址说明支持多字节字符系统；AnsiStrRScan参考function例子-AnsiStrScan(PChar,J);首苜BfunctionStringRepIace(constS,OldPattern,NewPattern:string;Flags:TReplaceFlags):string;$功能返回替换后的字符串说明rfReplaceAlI为替换全部内容；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;$功能返回对字符串自动换行说明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;$功能返回程序命令参数是否找到说明Result:二FindCmdLineSwitch(Switch,SwitchChars,True);function;function;function参考例子：=FindCmdLineSwitch;首部procedureFreeAndNiI(varObj);$功能释放对象Obj并赋为空说明如果对象已经释放资源将

20、触发异常参考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; $功能说明返回对象是否支持指定的接口Result : = (l ID) Oni I;参考type例子首部functionCreateGUID(outGuid:TGUID):HResu11;$功能返回创建全局标识是否成功说明返回S_OK表示成功参考function例子/BeginCreateGUIDprocedure(Sender:TObject);varvGUID:TGUID;beginCreateGUID(vGUID);:=GUIDToString(vGUID);end;/EndCrea

23、teGUID首部functionStringToGUID(constS:string):TGUID;$功能返回字符串S专换成全局标识说明如果字符串非法将触发异常参考fuction例子:=GUIDToString(StringToGUID);首部functionGUIDToString(constGUID:TGUID):string;$功能返回全局标识GUID转换成字符串说明参考fuction例子:=GUIDToString(StringToGUID);首部functionlsEqualGUID(constguidl,guid2:TGUID):Boolean;$功能返回两个全局标识是否相同说明f

24、unctionIsEqualGUID;externaInameIsEquaIGUID,;参考例子:=IsEquaIGUID(StringToGUIDfStringToGUID);首音BfunctionLoadPackage(constName:string):HMODULE;$功能返回载入包资源说明参考function;function;function例子首部procedureUnIoadPackage(ModuIe:HMODULE);$功能取消载入包资源说明参考function;function例子一首部procedureGetPackageInfo(ModuIe:HMODULE;Para

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

26、RaiseLastOSError;$功能触发操作系统的最后一个异常说明如果没有出现异常则默认调用Api函数异常参考function例子RaiseLastOSError;首首BprocedureRaiseLastWin32Error;deprecated;$功能触发Win32系统的最后一个异常说明如果没有出现异常则默认调用Api函数异常参考function;例子RaiseLastWin32Error;首音BfunctionWin32Check(RetVaI:BOOL):BOOL;platform;$功能返回检测调用系统Api函数返回结果说明如果RetVaI为FaIse则触发异常参考functio

27、n例子：二Win32check;首部procedureAddTerminateProc(TermProc:TTerminateProc);$功能添加一个退出过程到系统中说明执行AddTerminateProc(niI)将导致系统异常参考const例子/BeginAddTerminateProcfunctionNewTerminateProc:BooIean;beginResult:二True;ShowMessage(NewTerminateProc1);end;procedure(Sender:TObject);beginAddTerminateProc(NewTerminateProc);end;/EndA