部 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas
功能 返回比较两个指针字符串指定长度
说明 当S1>S2返回值>0;当S1 子 SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) ━━━━━━━━━━━━━━━━━━━━━ 首部 function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas 功能 返回指针字符串小写形式 说明 非大写字符不处理 参考 function Windows.CharLower 例子 Edit2.Text := AnsiStrLower(PChar(Edit1.Text)); ━━━━━━━━━━━━━━━━━━━━━ 首部 function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas 功能 返回指针字符串大写形式 说明 非小写字符不处理 参考 function Windows.CharUpper 例子 Edit2.Text := AnsiStrUpper(PChar(Edit1.Text)); ━━━━━━━━━━━━━━━━━━━━━ 首部 function AnsiLastChar(const S: string): PChar; $[SysUtils.pas 功能 返回字符串S的最后一个指针字符 说明 当字符串S为空串则返回空指针 参考 function SysUtils.ByteType 例子 Edit2.Text := AnsiLastChar(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部 function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas 功能 返回指针字符串P的最后一个指针字符 说明 当字符串P为空空指针则返回空指针 参考 function SysUtils.ByteType 例子 Edit2.Text := AnsiLastChar(PChar(Edit1.Text)); ━━━━━━━━━━━━━━━━━━━━━ 首 部 function AnsiQuotedStr(const S: string; Quote: Char): string; $[SysUtils.pas 功能 返回字符串S以字符Quote为引号的表现形式 说 明 AnsiQuotedStr('hello\', '\ 参考 function SysUtils.AnsiStrScan 例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '\━━━━━━━━━━━━━━━━━━━━━ 首 部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; $[SysUti ls.pas 功能 返回以字符Quote为引号的表现形式原形 说明 表现形式非法时Src不变否则为空 参考 function SysUtils.AnsiStrScan 例子 ///////Begin AnsiExtractQuotedStr procedure TForm1.Button1Click(Sender: TObject); var P: PChar; begin P := PChar(Edit1.Text); Edit2.Text := 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 AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle = {$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}): string; $[SysUtils.pas 功能 返回将给定字符串的行分隔符调整为CR/LF序列 说 明 AdjustLineBreaks('1'#13'2'#13)='1'#13#10'2'#13#10;AdjustLineBreaks('1'#10'2'#10)='1'#13#10'2'#13#10 参考 function SysUtils.StrNextChar 例子 ━━━━━━━━━━━━━━━━━━━━━ 首 部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string; $[SysUtils.pas 功能 返回逻辑值B转换成字符串 说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' 参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); ━━━━━━━━━━━━━━━━━━━━━ 首 部 function ChangeFileExt(const FileName, Extension: string): string; $[SysUtils.pas 功能 返回改变扩展名后的文件名 说明 [注意]扩展名Extension前要加点;ChangeFileExt('a.jpg', 'bmp')='abmp' 参考 function SysUtils.LastDelimiter;function System.Copy 例子 Edit1.Text := ChangeFileExt(Edit2.Text, Edit3.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部 function CreateDir(const Dir: string): Boolean; $[SysUtils.pas 功能 返回创建目录是否成功 说明 不支持多级目录;已经存在则返回False 参考 function Windows.CreateDirectory 例子 CheckBox1.Checked := CreateDir(Edit1.Text); ━━━━━━━━━━━━━━━━━━━━━ 首 部 function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: Integer): string; $[SysUtils.pas 功能 返回货币类型以指定格式转换成字符串 说明 Digits指定小数宽度 参考 function SysUtils.FloatToText 例子 ///////Begin CurrToStrF procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffGeneral, SpinEdit1.Value); Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffExponent, SpinEdit1.Value); Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffFixed, SpinEdit1.Value); Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffNumber, SpinEdit1.Value); Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0), ffCurrency, SpinEdit1.Value); end; ///////End CurrToStrF ━━━━━━━━━━━━━━━━━━━━━ 首部 function CurrentYear: Word; $[SysUtils.pas 功能 返回当前年份 说明 参考 function Windows.GetLocalTime 例子 SpinEdit1.Value := CurrentYear; delphi函数大全之D-G篇-详解 (2007-04-09 00:27:56) 标签：delphi 函数 ━━━━━━━━━━━━━━━━━━━━━ 首 部 function ExpandFileNameCase(const FileName: string; out MatchFound: TFilenameCaseMatch): string; $[SysUtils.pas 功能 分情况返回文件名的完整表示 说 明 type TFilenameCaseMatch = (mkNone, mkExactMatch, mkSingleMatch, mkAmbiguous); 参 考 function Windows.GetFullPathName;function SysUtils.SameFileName;function SysUtils.FindFirst 例子 ///////Begin ExpandFileNameCase procedure TForm1.Button1Click(Sender: TObject); var vFilenameCaseMatch: TFilenameCaseMatch; begin Edit1.Text := ExpandFileNameCase(Edit2.Text, vFilenameCaseMatch); SpinEdit1.Value := Ord(vFilenameCaseMatch); end; ///////End ExpandFileNameCase ━━━━━━━━━━━━━━━━━━━━━ 首部 function ExpandUNCFileName(const FileName: string): string; $[SysUtils.pas 功能 返回LINUX文件名的完整表示 说明 ExpandUNCFileName('C:/')='C:\\' 参考 function SysUtils.ExpandFileName 例子 Edit1.Text := ExpandUNCFileName(Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首 部 function ExtractRelativePath(const BaseName, DestName: string): string; $[SysUtils.pas 功能 返回参数的相对路径 说明 ExtractRelativePath('C:\\Windows\\', 'C:\\Windows\\System')='System' 参考 function SysUtils.SameFilename;function SysUtils.ExtractFileDrive 例子 Edit1.Text := ExtractRelativePath(Edit2.Text, Edit3.Text); ━━━━━━━━━━━━━━━━━━━━━ 首 部 function ExtractShortPathName(const FileName: string): string; $[SysUtils.pas 功能 返回参数的DOS路径 说明 ExtractShortPathName('C:\\Program Files\\Borland')='C:\\PROGRA~1\\BORLAND' 参考 function Windows.GetShortPathName 例子 Edit1.Text := ExtractShortPathName(Edit2.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部 function FileSearch(const Name, DirList: string): string; $[SysUtils.pas 功能 返回目录列表中DirList搜索的第一个结果 说 明 FileSearch('Calc.exe', 'd:\\winxp\\system32;c:\\windows')='d:\\winxp\\system32\\calc.exe' 参考 function SysUtils.FileExists;function SysUtils.AnsiLastChar 例子 Edit1.Text := FileSearch(Edit2.Text, Edit3.Text); ━━━━━━━━━━━━━━━━━━━━━ 首部 function DiskFree(Drive: Byte): Int64; $[SysUtils.pas 功能 返回驱动器可用空间 说明 参数Drive为0表示当前路径,为1表示=A驱,为2表示=B驱...;获取失败则返回-1 参考 function Windows.GetDiskFreeSpaceExA 例子 SpinEdit1.Value := DiskFree(SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━ 首部 function DiskSize(Drive: Byte): Int64; $[SysUtils.pas 功能 返回驱动器全部空间 说明 参数Drive为0表示当前路径,为1表示=A驱,为2表示=B驱...;获取失败则返回-1 参考 function Windows.GetDiskFreeSpaceExA 例子 SpinEdit1.Value := DiskSize(SpinEdit2.Value); ━━━━━━━━━━━━━━━━━━━━━ 首部 function FileDateToDateTime(FileDate: Integer): TDateTime; $[SysUtils.pas 功能 返回将文件日期时间类型转换日期时间类型 说明 FileDate非法是将触发异常 参考 function SysUtils.EncodeDate;function SysUtils.EncodeTime 例子 <参见FileAge> ━━━━━━━━━━━━━━━━━━━━━ 首部 function DateTimeToFileDate(DateTime: TDateTime): Integer; $[SysUtils.pas 功能 返回将日期时间类型转换文件日期时间类型 说明 年份在1980到2107之外则返回0 参考 function SysUtils.DecodeDate;function SysUtils.DecodeTime 例子 <参见FileSetDate> ━━━━━━━━━━━━━━━━━━━━━ 首部 function GetCurrentDir: string; $[SysUtils.pas 功能 返回当前操作目录 说明 [注意]调用文件对话框会改变当前操作目录 参考 function System.GetDir 例子 Edit1.Text := GetCurrentDir; ━━━━━━━━━━━━━━━━━━━━━ 首 部 function Format(const Format: string; const Args: array of const): string; $