Delphi函数大全.docx
- 文档编号:26782466
- 上传时间:2023-06-22
- 格式:DOCX
- 页数:21
- 大小:18.61KB
Delphi函数大全.docx
《Delphi函数大全.docx》由会员分享,可在线阅读,更多相关《Delphi函数大全.docx(21页珍藏版)》请在冰豆网上搜索。
Delphi函数大全
Delphi函数大全
首部functionLanguages:
TLanguages;$[
功能返回系统语言对象
说明通过此函数可以得到系统的语言环境
参考type
例子
12a12c12a12c.
参考
例子:
=IsValidIdent;
━━━━━━━━━━━━━━━━━━━━━
首部functionIntToStr(Value:
Integer):
string;overload;$[
首部functionIntToStr(Value:
Int64):
string;overload;$[
功能返回整数Value转换成字符串
说明Format('%d',[Value])
参考function
例子:
=IntToStr;
━━━━━━━━━━━━━━━━━━━━━
首部functionIntToHex(Value:
Integer;Digits:
Integer):
string;overload;$[
首部functionIntToHex(Value:
Int64;Digits:
Integer):
string;overload;$[
功能返回整数Value转换成十六进制表现结果;Format('%.*x',[Digits,Value])
说明参数Digits指定字符最小宽度;最小宽度不足时将用0填充
参考function
例子:
=IntToHex,;
━━━━━━━━━━━━━━━━━━━━━
首部functionStrToInt(constS:
string):
Integer;$[
功能返回字符串S转换成整数
说明字符串非整数表达时将引起异常
参考procedure
例子:
=StrToInt;
━━━━━━━━━━━━━━━━━━━━━
首部functionStrToIntDef(constS:
string;Default:
Integer):
Integer;$[
功能返回字符串S转换成整数
说明字符串非整数表达时则返回默认值Default
参考procedure
例子:
=StrToIntDef,0);
━━━━━━━━━━━━━━━━━━━━━
首部functionTryStrToInt(constS:
string;outValue:
Integer):
Boolean;$[
功能返回字符串S转换成整数Value是否成功
说明字符串非整数表达时返回False并且Value将输出为0
参考procedure
例子
..);打开失败则返回负数
参考function
例子
xe'
参考function;function
例子:
=ExtractFileExt;
━━━━━━━━━━━━━━━━━━━━━
首部functionExpandFileName(constFileName:
string):
string;$[
功能返回文件名的完整表示
说明ExpandFileName('')='C:
\ProgramFiles\Borland\Delphi6\Projects\'
参考function
例子:
=ExpandFileName;
━━━━━━━━━━━━━━━━━━━━━
首部functionExpandFileNameCase(constFileName:
string;outMatchFound:
TFilenameCaseMatch):
string;$[
功能分情况返回文件名的完整表示
说明typeTFilenameCaseMatch=(mkNone,mkExactMatch,mkSingleMatch,mkAmbiguous);
参考function;function;function
例子
.;获取失败则返回-1
参考function
例子:
=DiskFree;
━━━━━━━━━━━━━━━━━━━━━
首部functionDiskSize(Drive:
Byte):
Int64;$[
功能返回驱动器全部空间
说明参数Drive为0表示当前路径,为1表示=A驱,为2表示=B驱...;获取失败则返回-1
参考function
例子:
=DiskSize;
━━━━━━━━━━━━━━━━━━━━━
首部functionFileDateToDateTime(FileDate:
Integer):
TDateTime;$[
功能返回将文件日期时间类型转换日期时间类型
说明FileDate非法是将触发异常
参考function;function
例子<参见FileAge>
━━━━━━━━━━━━━━━━━━━━━
首部functionDateTimeToFileDate(DateTime:
TDateTime):
Integer;$[
功能返回将日期时间类型转换文件日期时间类型
说明年份在1980到2107之外则返回0
参考function;function
例子<参见FileSetDate>
━━━━━━━━━━━━━━━━━━━━━
首部functionGetCurrentDir:
string;$[
功能返回当前操作目录
说明[注意]调用文件对话框会改变当前操作目录
参考function
例子:
=GetCurrentDir;
━━━━━━━━━━━━━━━━━━━━━
首部functionSetCurrentDir(constDir:
string):
Boolean;$[
功能返回设置当前操作目录是否成功
说明[注意]调用文件对话框会改变当前操作目录
参考function
例子:
=SetCurrentDir;
━━━━━━━━━━━━━━━━━━━━━
首部functionCreateDir(constDir:
string):
Boolean;$[
功能返回创建目录是否成功
说明不支持多级目录;已经存在则返回False
参考function
例子:
=CreateDir;
━━━━━━━━━━━━━━━━━━━━━
首部functionRemoveDir(constDir:
string):
Boolean;$[
功能返回删除目录是否成功
说明必须是空目录
参考function
例子:
=RemoveDir;
━━━━━━━━━━━━━━━━━━━━━
首部functionStrLen(constStr:
PChar):
Cardinal;$[
功能返回指针字符串的长度
说明当指针字符串Str为nil时将触发异常
参考
例子:
=StrLen(PChar);
━━━━━━━━━━━━━━━━━━━━━
首部functionStrEnd(constStr:
PChar):
PChar;$[
功能返回指针字符串的结尾
说明当指针字符串Str为nil时将触发异常
参考
例子:
=StrEnd(PChar)-;
━━━━━━━━━━━━━━━━━━━━━
首部functionStrMove(Dest:
PChar;constSource:
PChar;Count:
Cardinal):
PChar;$[
功能返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中
说明Dest没有分配资源将触发异常s
参考function
例子
255]ofChar;
begin
StrECopy(StrECopy(vBuffer,PChar),PChar);
:
=vBuffer;
end;
255]ofChar;
begin
StrLCopy(vBuffer,PChar,;
:
=vBuffer;
end;
255]ofChar;
begin
StrPCopy(vBuffer,PChar);
:
=vBuffer;
end;
255]ofChar;
begin
StrPLCopy(vBuffer,,;
:
=vBuffer;
end;
255]ofChar;
begin
StrPCopy(vBuffer,;
StrCat(vBuffer,PChar);
:
=vBuffer;
end;
255]ofChar;
begin
StrPCopy(vBuffer,;
StrLCat(vBuffer,PChar,;
:
=vBuffer;
end;
2005-7-26摘要]类型
Format('x=%d',[12]);3f,[]);f',[5,]);d',[12]);x',[12]);0000C255]ofChar;
E:
Extended;
begin
E:
=StrToFloatDef,0);
:
=FloatToText(vBuffer,E,
fvExtended,ffNumber,,;
:
=Copy(vBuffer,1,;
end;
0',90)='1,234,567,'
参考function
例子:
=FormatFloat,StrToFloatDef,0));
━━━━━━━━━━━━━━━━━━━━━
首部functionFormatCurr(constFormat:
string;Value:
Currency):
string;$[
功能返回货币类型以指定格式字符串Format转换成字符串
说明FormatCurr(',.00',90)='1,234,567,'
参考function
例子:
=FormatCurr,StrToCurrDef,0));
━━━━━━━━━━━━━━━━━━━━━
首部functionFloatToTextFmt(Buf:
PChar;constValue;ValueType:
TFloatValue;Format:
PChar):
Integer;$[
功能返回浮点数以指定格式字符串Format转换成指针字符串的内存大小
说明ValueType指定无类型参数Value的类型
参考
例子
255]ofChar;
E:
Extended;
begin
E:
=StrToFloatDef,0);
:
=FloatToTextFmt(vBuffer,E,
fvExtended,PChar);
:
=Copy(vBuffer,1,;
end;
7]ofstring=
('星期天','星期一','星期二','星期三','星期四','星期五','星期六');
begin
:
=cWeekCn[DayOfWeek(Now)];
end;
2002-03-092002年03月09日255]ofChar;
begin
ExceptionErrorMessage(Self,Self,vBuffer,255);
Caption:
=vBuffer;
end;
'')=16
参考function;function
例子:
=LastDelimiter,;
━━━━━━━━━━━━━━━━━━━━━
首部functionAnsiCompareFileName(constS1,S2:
string):
Integer;$[
功能返回比较两个文件名
说明当S1>S2返回值>0;当S1 参考function 例子: =AnsiCompareFileName,; ━━━━━━━━━━━━━━━━━━━━━ 首部functionSameFileName(constS1,S2: string): Boolean;$[ 功能返回两个文件名是否相等 说明区分大小写 参考function 例子: =SameFileName,; ━━━━━━━━━━━━━━━━━━━━━ 首部functionAnsiLowerCaseFileName(constS: string): string;$[ 功能返回小写文件名 说明在非多字节字符系统上相当于AnsiLowerCase 参考function 例子: =AnsiLowerCaseFileName; ━━━━━━━━━━━━━━━━━━━━━ 首部functionAnsiUpperCaseFileName(constS: string): string;$[ 功能返回大写文件名 说明在非多字节字符系统上相当于AnsiUpperCase 参考function 例子: =AnsiUpperCaseFileName; ━━━━━━━━━━━━━━━━━━━━━ 首部functionAnsiPos(constSubstr,S: string): Integer;$[ 功能返回子串Substr在字符中第一次出现的位置 说明不存在则返回0 参考 例子: =AnsiPos,; ━━━━━━━━━━━━━━━━━━━━━ 首部functionAnsiStrPos(Str,SubStr: PChar): PChar;$[ 功能返回指针子串Substr在指针字符中第一次出现的指针位置 说明不存在则返回nil 参考function 例子: =AnsiStrPos(PChar,PChar); ━━━━━━━━━━━━━━━━━━━━━ 首部functionAnsiStrRScan(Str: PChar;Chr: Char): PChar;$[ 功能返回在指针字符串Str搜索字符Chr最后一个出现的地址 说明支持多字节字符系统;AnsiStrRScan('','.')='' 参考function 例子: =AnsiStrScan(PChar,'.'); ━━━━━━━━━━━━━━━━━━━━━ 首部functionAnsiStrScan(Str: PChar;Chr: Char): PChar;$[ 功能返回在指针字符串Str搜索字符Chr第一个出现的地址 说明支持多字节字符系统;AnsiStrRScan('','.')='.' 参考function 例子: =AnsiStrScan(PChar,'.'); ━━━━━━━━━━━━━━━━━━━━━ 首部functionStringReplace(constS,OldPattern,NewPattern: string;Flags: TReplaceFlags): string;$[ 功能返回替换后的字符串 说明rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 参考function;function;function 例子 ///////BeginStringReplace procedure(Sender: TObject); begin '[]']: = StringReplace,,,[]); '[rfReplaceAll]']: = StringReplace,,,[rfReplaceAll]); '[rfIgnoreCase]']: = StringReplace,,,[rfIgnoreCase]); '[rfReplaceAll,rfIgnoreCase]']: = StringReplace,,,[rfReplaceAll,rfIgnoreCase]); end; ///////EndStringReplace ━━━━━━━━━━━━━━━━━━━━━ 首部functionWrapText(constLine,BreakStr: string;constBreakChars: TSysCharSet;MaxCol: Integer): string;overload;$[ 首部functionWrapText(constLine: string;MaxCol: Integer=45): string;overload;$[ 功能返回对字符串自动换行 说明Result: =WrapText(Line,sLineBreak,['','-',#9],MaxCol); 参考function;function 例子: =WrapText,; ━━━━━━━━━━━━━━━━━━━━━ 首部functionFindCmdLineSwitch(constSwitch: string;constChars: TSysCharSet;IgnoreCase: Boolean): Boolean;overload;$[ 首部functionFindCmdLineSwitch(constSwitch: string): Boolean;overload;$[ 首部functionFindCmdLineSwitch(constSwitch: string;IgnoreCase: Boolean): Boolean;overload;$[ 功能返回程序命令参数是否找到 说明Result: =FindCmdLineSwitch(Switch,SwitchChars,True); 参考function;function;function 例子: =FindCmdLineSwitch; ━━━━━━━━━━━━━━━━━━━━━ 首部procedureFreeAndNil(varObj);$[ 功能释放对象Obj并赋为空 说明如果对象已经释放资源将触发异常 参考type 例子 ///////BeginFreeAndNil procedure(Sender: TObject); var Temp: TObject; begin Temp: =; ; ShowMessage(Format('%p',[Pointer(Temp)])); Temp: =; FreeAndNil(Temp); ShowMessage(Format('%p',[Pointer(Temp)])); end; ///////EndFreeAndNil ━━━━━━━━━━━━━━━━━━━━━ 首部functionSupports(constInstance: IInterface;constIID: TGUID;outIntf): Boolean;overload;$[ 首部functionSupports(constInstance: TObject;constIID: TGUID;outIntf): Boolean;overload;$[ 首部functionSupports(constInstance: IInterface;constIID: TGUID): Boolean;overload;$[ 首部functionSupports(constInstance: TObject;constIID: TGUID): Boolean;overload;$[ 首部functionSupports(constAClass: TClass;constIID: TGUID): Boolean;overload;$[ 功能返回对象是否支持指定的接口 说明Result: =(IID)<>nil; 参考type 例子 ━━━━━━━━━━━━━━━━━━━━━ 首部functionCreateGUID(outGuid: TGUID): HResult;$[ 功能返回创建全局标识是否成功 说明返回S_OK表示成功 参考function 例子 ///////BeginCreateGUID procedure(Sender: TObject); var vGUID: TGUID; begin CreateGUID(vGUID); : =GUIDToString(vGUID); end; ///////EndCreateGUID ━━━━━━━━━━━━━━━━━━━━━ 首部functionStringToGUID(constS: string): TGUID;$[ 功能返回字符串S转换成全局标识 说明如果字符串非法将触发异常 参考fuction 例子: =GUIDToString(StringToGUID); ━━━━━━━━━━━━━━━━━━━━━ 首部functionGUIDToString(constGUID: TGUID): string;$[ 功能返回全局标识GUID转换成字符串 说明 参考fuction 例子: =GUIDToString(StringToGUID); ━━━━━━━━━━━━━━━━━━━━━ 首部functionIsEqualGUID(constguid1,guid2: TGUID): Boolean;$[ 功能返回两个全局标识是否相同 说明functionIsEqualGUID;external''name'IsEqualGUID'; 参考 例子: =IsEqualGUID(StringToGUID,StringToGUID); ━━━━━━━━━━━━━━━━━━━━━ 首部functionLoadPackage(constName: string): HMODULE;$[ 功能返回载入包资源 说明 参考function;function;function 例子 ━━━━━━━━━━━━━━━━━━━━━ 首部procedureUnloadPackage(Module: HMODULE);$[ 功能取消载入包资源 说明 参考function;function 例子 ━━━━━━━━━━━━━━━━━━━━━ 首部procedureGetPackageInfo(Module: HMODULE;Param: Pointer;varFlags: Integer;InfoProc: TPackageInfoProc);$[ 功能返回包的信息 说明
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Delphi 函数 大全
![提示](https://static.bdocx.com/images/bang_tan.gif)