delphi常用函数大全

十月天 發表於 2023-7-14 11:02:00

<h1 id="delphi常用函数大全转">delphi常用函数大全（转）</h1>
Abort函数引起放弃的意外处理 
Abs函数绝对值函数 
AddExitProc函数将一过程添加到运行时库的结束过程表中 
Addr函数返回指定对象的地址 
AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列 
Align属性使控件位于窗口某部分 
Alignment属性控件标签的文字位置 
AllocMem函数在堆栈上分配给定大小的块 
AllowGrayed属性允许一个灰度选择 
AnsiCompareStr函数比较字符串（区分大小写） 
AnsiCompareText函数比较字符串（不区分大小写） 
AnsiLowerCase函数将字符转换为小写 
AnsiUpperCase函数将字符转换为大写 
Append函数以附加的方式打开已有的文件 
ArcTan函数余切函数 
AssignFile函数给文件变量赋一外部文件名 
Assigned函数测试函数或过程变量是否为空 
AutoSize属性自动控制标签的大小 
BackgroundColor属性背景色 
BeginThread函数以适当的方式建立用于内存管理的线程 
BevelInner属性控件方框的内框方式 
BevelOuter属性控件方框的外框方式 
BevelWidth属性控件方框的外框宽度 
BlockRead函数读一个或多个记录到变量中 
BlockWrite函数从变量中写一个或多个记录 
BorderStyle属性边界类型 
BorderWidth属性边界宽度 
Break命令终止for、while、repeat循环语句 
Brush属性画刷 
Caption属性标签文字的内容 
ChangeFileExt函数改变文件的后缀 
ChDir函数改变当前目录 
Checked属性确定复选框选中状态 
Chr函数返回指定序数的字符 
CloseFile命令关闭打开的文件 
Color属性标签的颜色 
Columns属性显示的列数 
CompareStr函数比较字符串（区分大小写） 
Concat函数合并字符串 
Continue命令继续for、while、repeat的下一个循环 
Copy函数返回一字符串的子串 
Cos函数余弦函数 
Ctl3D属性是否具有3D效果 
Cursor属性鼠标指针移入后的形状 
Date函数返回当前的日期 
DateTimeToFileDate函数将DELPHI的日期格式转换为DOS的日期格式 
DateTimeToStr函数将日期时间格式转换为字符串 
DateTimeToString函数将日期时间格式转换为字符串 
DateToStr函数将日期格式转换为字符串 
DayOfWeek函数返回星期的数值 
Dec函数递减变量值 
DecodeDate函数将日期格式分解为年月日 
DecodeTime函数将时间格式分解为时、分、秒、毫秒 
Delete函数从字符串中删除子串 
DeleteFile命令删除文件 
DiskFree函数返回剩余磁盘空间的大小 
DiskSize函数返回指定磁盘的容量 
Dispose函数释放动态变量所占的空间 
DisposeStr函数释放字符串在堆栈中的内存空间 
DitherBackground属性使背景色的色彩加重或减少50% 
DragCursor属性当鼠标按下时光标的形状 
DragMode属性按动的作用方式 
DropDownCount属性容许的显示数据项的数目 
EditMask属性编辑模式 
Enabled属性是否使标签呈现打开状态 
EncodeDate函数将年月日合成为日期格式 
EncodeTime函数将时、分、秒、毫秒合成为时间格式 
EndMargin属性末尾边缘 
Eof函数对有类型或无类型文件测试是否到文件尾 
Eoln函数返回文本文件的行结束状态 
Erase命令删除外部文件 
ExceptAddr函数返回引起当前意外的地址 
Exclude函数从集合中删除一些元素 
ExceptObject函数返回当前意外的索引 
Exit命令立即从当前的语句块中退出 
Exp函数指数函数 
ExpandFileName函数返回包含绝对路径的字符串 
ExtendedSelect属性是否允许存在选择模式，True时，MultiSelect才有意义 
ExtractFileDir函数返回驱动器和路径 
ExtractFileExt函数返回文件的后缀 
ExtractFileName函数返回文件名 
ExtractFilePath函数返回指定文件的路径 
FileAge函数返回文件已存在的时间 
FileClose命令关闭指定的文件 
FileCreate命令用指定的文件名建立新文件 
FileDateToDateTime函数将DOS的日期格式转换为DELPHI的日期格式 
FileExists函数检查文件是否存在 
FileGatAttr函数返回文件的属性 
FileGetDate函数返回文件的DOS日期时间标记 
FileOpen命令用指定的存取模式打开指定的文件 
FilePos函数返回文件的当前指针位置 
FileRead命令从指定的文件读取 
FileSearch命令在目录中搜索指定的文件 
FileSeek函数改变文件的指针 
FileSetAttr函数设置文件属性 
FileSetDate函数设置文件的DOS日期时间标记 
FileSize函数返回当前文件的大小 
FileWrite函数对指定的文件做写操作 
FillChar函数用指定的值填充连续字节的数 
FindClose命令终止FindFirst/FindNext序列 
FindFirst命令对指定的文件名及属性搜索目录 
FindNext命令返回与文件名及属性匹配的下一入口 
FloatToDecimal函数将浮点数转换为十进制数 
FloatToStrF函数将浮点数转换为字符串 
FloatToStr函数将浮点数转换为字符串 
FloatToText函数将给定的浮点数转换为十进制数 
FloatToTextFmt函数将给定的浮点数转换为十进制数 
Flush函数将缓冲区的内容刷新到输出的文本文件中 
FmtLoadStr函数从程序的资源字符串表中装载字符串 
FmtStr函数格式化一系列的参数，其结果以参数Result返回 
Font属性设置字体 
Format函数格式化一系列的参数并返回Pascal字符串 
FormatBuf函数格式化一系列的参数 
FormatDateTime函数用指定的格式来格式化日期和时间 
FormatFloat函数指定浮点数格式 
Frac函数返回参数的小数部分 
FreeMem函数按给定大小释放动态变量所占的空间 
GetDir返回指定驱动器的当前目录 
GetHeapStatus返回内存管理器的当前状态 
GetMem建立一指定大小的动态变量，并将指针指向该处 
GetMemoryManager返回内存管理器的入口点 
Glyph函数按钮上的图象 
Halt停止程序的执行并返回到操作系统 
Hi返回参数的高地址位 
High返回参数的上限值 
Hint属性提示信息 
Int返回参数的整数部分 
Include添加元素到集合中 
Insert在字符串中插入子串 
IntToHex将整型数转换为十六进制数 
IntToStr将整型数转换为字符串 
IOResult返回最新的I/O操作完成状态 
IsValidIdent测试字符串是否为有效的标识符 
Items属性默认显示的节点 
Kind属性摆放样式 
LargeChange属性最大改变值 
Layout属性图象布局 
Length函数返回字符串的动态长度 
Lines属性缺省显示内容 
Ln函数自然对数函数 
Lo函数返回参数的低地址位 
LoadStr函数从应用程序的可执行文件中装载字符资源 
LowerCase函数将给定的字符串变为小写 
Low函数返回参数的下限值 
Max属性最大值 
MaxLength属性最大长度 
Min属性最小值 
MkDir命令建立一子目录 
Move函数从源到目标复制字节 
MultiSelect属性允许同时选择几个数据项 
Name属性控件的名字 
New函数建立新的动态变量并设置一指针变量指向他 
NewStr函数在堆栈上分配新的字符串 
Now函数返回当前的日期和时间 
Odd测试参数是否为奇数 
OnActivate事件焦点移到窗体上时触发 
onClick事件单击窗体空白区域触发 
OnDblClick事件双击窗体空白区域触发 
OnCloseQuery事件使用者试图关闭窗体触发 
OnClose事件窗体关闭后才触发 
OnCreate事件窗体第一次创建时触发 
OnDeactivate事件用户切换到另一应用程序触发 
OnDragDrop事件鼠标拖放操作结束时触发 
OnDragOver事件有其他控件从他上面移过触发 
onMouseDown事件按下鼠标键时触发 
onMouseUp事件释放鼠标键时触发 
onMouseMove事件移动鼠标时触发 
OnHide事件隐藏窗体时触发 
onKeyDown事件按下键盘某键时触发 
onKeyPress事件按下键盘上的单个字符键时触发 
onKeyUp事件释放键盘上的某键时触发 
OnPaint事件窗体上有新部分暴露出来触发 
OnResize事件重新调整窗体大小触发 
OnShow事件在窗体实际显示之前瞬间触发 
Ord返回序数类的序数 
OutlineStyle属性类型 
OutOfMemoryError引起OutOfMemory意外 
PageIndex属性页索引 
Pages属性页 
ParamCount函数返回在命令行上传递给程序的参数数量 
ParamStr函数返回指定的命令行参数 
Pen属性画刷设置 
Pi函数返回圆周率Pi 
Picture属性显示图象 
PictureClosed属性设置Closed位图 
PictureLeaf属性设置Leaf位图 
PictureMinus属性设置Minus位图 
PictureOpen属性设置Open位图 
PicturePlus属性设置Plus位图 
Pos函数在字符串中搜索子串 
Pred函数返回先前的参数 
Random函数返回一随机函数 
Randomize函数用一随机数初始化内置的随机数生成器 
Read函数对有格式的文件，读一文件组件到变量中； 
对文本文件，读一个或多个值到一个或多个变量中 
Readln函数执行Read过程，然后跳到文件下一行 
ReadOnly属性只读属性 
ReAllocMem函数分配一动态变量 
Rename函数重命名外部文件 
RenameFile函数对文件重命名 
Reset函数打开已有的文件 
Rewrite函数建立并打开一新的文件 
RmDir函数删除空的子目录 
Round函数将实数值舍入为整型值 
RunError函数停止程序的执行 
ScrollBars属性滚动条状态 
Seek函数将文件的当前指针移动到指定的组件上 
SeekEof函数返回文件的文件结束状态 
SeekEoln函数返回文件的行结束状态 
SelectedColor属性选中颜色 
SetMemoryManager函数设置内存管理器的入口点 
SetTextBuf函数给文本文件指定I/O缓冲区 
Shape属性显示的形状 
ShowException函数显示意外消息与地址 
Sin函数正弦函数 
SizeOf函数返回参数所占的字节数 
SmallChange属性最小改变值 
Sorted属性是否允许排序 
Sqr函数平方函数 
Sqrt函数平方根函数 
StartMargin属性开始边缘 
State属性控件当前状态 
Str函数将数值转换为字符串 
StrAlloc函数给以NULL结束的字符串分配最大长度-1的缓冲区 
StrBufSize函数返回存储在由StrAlloc分配的字符缓冲区的最大字符数 
StrCat函数将一字符串附加到另一字符串尾并返回合并的字符串 
StrComp函数比较两个字符串 
StrCopy函数将一个字符串复制到另一个字符串中 
StrDispose函数释放堆栈上的字符串 
StrECopy函数将一字符串复制到另一个字符串并返回结果字符串尾部的指针 
StrEnd函数返回指向字符串尾部的指针 
Stretch属性自动适应控件的大小 
StrFmt函数格式化一系列的参数 
StrIComp函数比较两个字符串（不区分大小写） 
StringToWideChar函数将ANSI字符串转换为UNICODE字符串 
StrLCat函数将一字符串中的字符附加到另一字符串尾并返回合并的字符串 
StrLComp函数以最大长度比较两个字符串 
StrLCopy函数将一个字符串中的字符复制到另一个字符串中 
StrLen函数返回字符串中的字符数 
StrLFmt函数格式化一系列的参数，其结果中包含有指向目标缓冲区的指针 
StrLIComp函数以最大长度比较两个字符串（不区分大小写） 
StrLower函数将字符串中的字符转换为小写 
StrMove函数将一个字符串中的字符复制到另一个字符串中 
StrNew函数在堆栈上分配一个字符串 
StrPas函数将以NULL结束的字符串转换为PASCAL类的字符串 
StrPCopy函数将PASCAL类的字符串复制为以NULL结束的字符串 
StrPLCopy函数从PASCAL类的最大长度字符串复制为以NULL结束的字符串 
StrPos函数返回一个字符串在另一个字符串中首次出现指针 
StrRScan函数返回字符串中最后出现字符的指针 
StrScan函数返回字符串中出现首字符的指针 
StrToDate函数将字符串转换为日期格式 
StrToDateTime函数将字符串转换为日期/时间格式 
StrToFloat函数将给定的字符串转换为浮点数 
StrToInt函数将字符串转换为整型 
StrToIntDef函数将字符串转换为整型或默认值 
StrToTime函数将字符串转换为时间格式 
StrUpper函数将字符串中的字符转换为大写 
Style属性类型选择 
Suce函数返回后继的参数 
Swap函数交换参数的高低地址位 
Tabs属性标记每一项的内容 
TabIndex属性标记索引 
Text属性显示的文本 
TextToFloat函数将字符串（以NULL结束的格式）转换为浮点数 
Time函数返回当前的时间 
TimeToStr函数将时间格式转换为字符串 
Trim函数从给定的字符串中删除前导和尾部的空格及控制字符 
TrimLeft函数从给定的字符串中删除首部的空格及控制字符 
TrimRight函数从给定的字符串中删除尾部的空格及控制字符 
Trunc函数将实型值截取为整型值 
Truncate函数截去当前文件位置后的内容 
UnSelectedColor属性未选中颜色 
UpCase将字符转换为大写 
UpperCase将给定的字符串变为大写 
Val函数将字符串转换为整型值 
VarArrayCreate函数以给定的界限和维数建立变体数组 
VarArrayDimCount函数返回给定变体的维数 
VarArrayHighBound函数返回给定变体数组维数的上界 
VarArrayLock函数锁定给定的变体数组 
VarArrayLowBound函数返回给定变体数组维数的下界 
VarArrayOf函数返回指定变体的数组元素 
VarArrayRedim函数通过改变上限来调整变体的大小 
VarArrayUnlock函数解锁指定的变体数组 
VarAsType函数将变体转换为指定的类型 
VarCase函数将变体转换为指定的类型并保存他 
VarClear函数清除指定的变体 
VarCopy函数将指定的变体复制为指定的变体 
VarFormDateTime函数返回包含日期时间的变体 
VarIsArray函数测试变体是否为数组 
VarIsEmpty函数测试变体是否为UNASSIGNED 
VarIsNull函数测试变体是否为NULL 
VarToDateTime函数将给定的变体转换为日期时间 
VarType函数将变体转换为指定的类型并保存他 
Visible属性控件的可见性 
WantReturns属性为True时，按回车键产生一个回车符； 
为False时，按下Ctrl+Enter才产生回车符 
Write命令对有格式的文件，写一变量到文件组件中； 
对文本文件，写一个或多个值到文件中 
Writeln命令执行WRITE过程，然后输出一行结束标志 
WideCharLenToString函数将ANSI字符串转换为UNICODE字符串 
WideCharLenToStrWar函数将UNICODE字符串转换为ANSI字符串变量 
WideCharToString函数将UNICODE字符串转换为ANSI字符串 
WideCharToStrVar函数将UNICODE字符串转换为ANSI字符串变量
<h2 id="delphi字符串函数大全">delphi字符串函数大全</h2>
函数 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas 
功能返回两个字符串是否相似 
说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 
参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc 
例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiContainsText(const AText, ASubText: string): Boolean; $[StrUtils.pas 
功能返回字符串AText是否包含子串ASubText 
说明不区分大小写 
参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos 
例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStartsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 
功能返回字符串AText是否以子串ASubText开头 
说明不区分大小写 
参考 function Windows.CompareString 
例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiEndsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 
功能返回字符串AText是否以子串ASubText结尾 
说明不区分大小写 
参考 function Windows.CompareString 
例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas 
功能返回字符串AText中用子串AFromText替换成子串AToText的结果 
说明不区分大小写 
参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 
例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiMatchText(const AText: string; const AValues: array of string): Boolean; $[StrUtils.pas 
功能返回字符串数组AValues中是否包含字符串AText 
说明不区分大小写 
参考 function StrUtils.AnsiIndexText 
例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiIndexText(const AText: string; const AValues: array of string): Integer; $[StrUtils.pas 
功能返回字符串AText在字符串数组AValues中的位置 
说明不区分大小写;如果不包含则返回-1 
参考 function SysUtils.AnsiSameText 
例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiContainsStr(const AText, ASubText: string): Boolean; $[StrUtils.pas 
功能返回字符串AText是否包含子串ASubText 
说明区分大小写 
参考 function StrUtils.AnsiPos 
例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStartsStr(const ASubText, AText: string): Boolean; $[StrUtils.pas 
功能返回字符串AText是否以子串ASubText开头 
说明区分大小写 
参考 function SysUtils.AnsiSameStr 
例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiEndsStr(const ASubText, AText: string): Boolean; $[StrUtils.pas 
功能返回字符串AText是否以子串ASubText结尾 
说明区分大小写 
参考 function SysUtils.AnsiSameStr 
例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiReplaceStr(const AText, AFromText, AToText: string): string; $[StrUtils.pas 
功能返回字符串AText中用子串AFromText替换成子串AToText的结果 
说明区分大小写 
参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 
例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiMatchStr(const AText: string; const AValues: array of string): Boolean; $[StrUtils.pas 
功能返回字符串数组AValues中是否包含字符串AText 
说明区分大小写 
参考 function StrUtils.AnsiIndexStr 
例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiIndexStr(const AText: string; const AValues: array of string): Integer; $[StrUtils.pas 
功能返回字符串AText在字符串数组AValues中的位置 
说明区分大小写 
参考 function SysUtils.AnsiSameStr 
例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function DupeString(const AText: string; ACount: Integer): string; $[StrUtils.pas 
功能返回字符串AText的ACount个复本 
说明当ACount为0时返回'' 
参考 function System.SetLength 
例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function ReverseString(const AText: string): string; $[StrUtils.pas 
功能返回字符串AText的反序 
说明 ReverseString('1234') = '4321' 
参考 function System.SetLength 
例子 Edit3.Text := ReverseString(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StuffString(const AText: string; AStart, ALength: Cardinal; const ASubText: string): string; $[StrUtils.pas 
功能返回嵌套字符串 
说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' 
参考 function System.Copy 
例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function RandomFrom(const AValues: array of string): string; overload; $[StrUtils.pas 
功能随机返回字符串数组AValues中的一个元素 
说明之前建议执行Randomize 
参考 function System.Random 
例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string; overload; $[StrUtils.pas 
功能返回指定的逻辑字符串 
说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' 
参考 <null> 
例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function LeftStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas 
功能返回字符串AText左边的ACount个字符 
说明 LeftStr('123456', 3) = '123' 
参考 function System.Copy 
例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function RightStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas 
功能返回字符串AText右边的ACount个字符 
说明 RightStr('123456', 3) = '456' 
参考 function System.Copy 
例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function MidStr(const AText: string; const AStart, ACount: Integer): string; $[StrUtils.pas 
功能返回字符串AText从AStart开始的ACount个字符 
说明其实就是Copy 
参考 function System.Copy 
例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: Integer; SearchString: String; Options: TStringSearchOptions = ): PChar; $[StrUtils.pas 
功能返回第一个搜索到的指针位置 
说明这函数常用于文本中搜索字符串 
参考 <null> 
例子 
///////Begin SearchBuf 
function SearchEdit(EditControl: TCustomEdit; const SearchString: String; 
SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; 
var 
Buffer, P: PChar; 
Size: Word; 
begin 
Result := False; 
if (Length(SearchString) = 0) then Exit; 
Size := EditControl.GetTextLen; 
if (Size = 0) then Exit; 
Buffer := StrAlloc(Size + 1); 
try 
EditControl.GetTextBuf(Buffer, Size + 1); 
P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, 
SearchString, SearchOptions); 
if P <> nil then begin 
EditControl.SelStart := P - Buffer; 
EditControl.SelLength := Length(SearchString); 
Result := True; 
end; 
finally 
StrDispose(Buffer); 
end; 
end;</null></null>
procedure TForm1.Button1Click(Sender: TObject); 
var 
SearchOptions: TStringSearchOptions; 
begin 
SearchOptions := []; 
if CheckBox1.Checked then 
Include(SearchOptions, soDown); 
if CheckBox2.Checked then 
Include(SearchOptions, soMatchCase); 
if CheckBox3.Checked then 
Include(SearchOptions, soWholeWord); 
SearchEdit(Memo1, Edit1.Text, SearchOptions); 
Memo1.SetFocus; 
end; 
///////End SearchBuf 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function Soundex(const AText: string; ALength: TSoundexLength = 4): string; $[StrUtils.pas 
功能返回探测字符串 
说明根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html 
参考 <null> 
例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SoundexInt(const AText: string; ALength: TSoundexIntLength = 4): Integer; $[StrUtils.pas 
功能返回探测整数 
说明 ALength的值越大解码准确率越高 
参考 <null> 
例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas 
功能返回探测整数的解码 
说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') 
参考 <null> 
例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SoundexWord(const AText: string): Word; $[StrUtils.pas 
功能返回探测文字数值 
说明没有参数ALength已经固定为4 
参考 <null> 
例子 SpinEdit2.Value := SoundexWord(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas 
功能返回探测文字数值的解码 
说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') 
参考 <null> 
例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SoundexSimilar(const AText, AOther: string; ALength: TSoundexLength = 4): Boolean; $[StrUtils.pas 
功能返回两个字符串的探测字符串是否相同 
说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) 
参考 <null> 
例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SoundexCompare(const AText, AOther: string; ALength: TSoundexLength = 4): Integer; $[StrUtils.pas 
功能返回比较两个字符串的探测字符串的结果 
说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, ALength)) 
参考 function SysUtils.AnsiCompareStr 
例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SoundexProc(const AText, AOther: string): Boolean; $[StrUtils.pas 
功能调用SoundexSimilar返回两个字符串的探测字符串是否相同 
说明系统变量AnsiResemblesProc的默认值 
参考 function StrUtils.AnsiResemblesText 
例子 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas 
功能返回一个新的字符串指针地址 
说明字符串S为空时返回NullStr 
参考 procedure System.New 
例子 
////////Begin NewStr,DisposeStr 
procedure TForm1.Button1Click(Sender: TObject); 
var 
P: PString; 
begin 
P := NewStr(Edit1.Text); 
Edit2.Text := P^; 
DisposeStr(P); 
end; 
////////End NewStr,DisposeStr 
━━━━━━━━━━━━━━━━━━━━━ 
函数 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas 
功能释放字符串指针P资源 
说明配合函数NewStr使用 
参考 procedure System.Dispose 
例子 <如上参见,如下参见> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 procedure AssignStr(var P: PString; const S: string); deprecated; $[SysUtils.pas 
功能将字符串S更新给字符串指针P 
说明更新值时会释放以前字符串指针的资源 
参考 function SysUtils.NewStr;function SysUtils.DisposeStr 
例子 
////////Begin AssignStr 
procedure 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 
功能在字符串Dest后追加字符串S 
说明相当于Dest := Dest + S;Delphi6已经不建议使用 
参考 <null> 
例子 
////////Begin AppendStr 
procedure 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的大写形式 
说明非小写字符不处理 
参考 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 
功能返回比较两个字符 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 
参考 <null> 
例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; assembler; $[SysUtils.pas 
功能返回比较两个内存指针 
说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), PChar('12c'), 3)=False 
参考 <null> 
例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas 
功能返回比较两个字符串 
说明不区分大小写 
参考 <null> 
例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas 
功能返回两个字符串是否相等 
说明不区分大小写 
参考 <null> 
例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiUpperCase(const S: string): string; $[SysUtils.pas 
功能返回字符串S的大写形式 
说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 
参考 function Windows.CharUpperBuff 
例子 Edit2.Text := AnsiUpperCase(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiLowerCase(const S: string): string; $[SysUtils.pas 
功能返回字符串S的小写形式 
说明非大写字符不处理 
参考 function Windows.CharLowerBuff 
例子 Edit2.Text := AnsiLowerCase(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas 
功能反回比较两个字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 
参考 function Windows.CompareString 
例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas 
功能返回两个字符串是否相等 
说明区分大小写 
参考 function SysUtils.AnsiCompareStr 
例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas 
功能反回比较两个字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 
参考 function Windows.CompareString 
例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas 
功能返回两个字符串是否相等 
说明不区分大小写 
参考 function SysUtils.AnsiCompareText 
例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 
参考 function System.CompareString 
例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) 
参考 function Windows.CompareString 
例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串指定长度 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) 
参考 function Windows.CompareString 
例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串指定长度 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 
参考 function Windows.CompareString 
例子 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 WideUpperCase(const S: WideString): WideString; $[SysUtils.pas 
功能返回双字节字符串的大写形式 
说明 WideChar双字节字符 
参考 function Windows.CharUpperBuffW 
例子 Edit2.Text := WideUpperCase(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas 
功能返回双字节字符串的小写形式 
说明我怎么就测试不出来呢 
参考 function Windows.CharLowerBuffW 
例子 Edit2.Text := WideLowerCase(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function WideCompareStr(const S1, S2: WideString): Integer; $[SysUtils.pas 
功能返回比较两个双字节字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 
参考 function Windows.CompareStringW 
例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas 
功能返回两个双字节字符串是否相同 
说明区分大小写 
参考 function SysUtils.WideCompareStr 
例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function WideCompareText(const S1, S2: WideString): Integer; $[SysUtils.pas 
功能返回比较两个双字节字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 
参考 function Windows.CompareStringW 
例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function WideSameText(const S1, S2: WideString): Boolean; $[SysUtils.pas 
功能返回两个双字节字符串是否相同 
说明不区分大小写 
参考 function SysUtils.WideCompareText 
例子 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); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function 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; $[SysUtils.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中的表现形式 
说明单引号中的一个单引号将转成两个 
参考 procedure System.Insert 
例子 Edit2.Text := QuotedStr(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiQuotedStr(const S: string; Quote: Char): string; $[SysUtils.pas 
功能返回字符串S以字符Quote为引号的表现形式 
说明 AnsiQuotedStr('hello"world', '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' 
参考 function SysUtils.AnsiStrScan 
例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; $[SysUtils.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 
例子 <null> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas 
功能返回字符串Ident是否是正确的标识符 
说明标识符::字母|下划线[字母|下划线|数字]... 
参考 <null> 
例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas 
函数 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas 
功能返回整数Value转换成字符串 
说明 Format('%d', ) 
参考 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 
功能返回整数Value转换成十六进制表现结果;Format('%.x', ) 
说明参数Digits指定字符最小宽度;最小宽度不足时将用0填充 
参考 function SysUtils.FmtStr 
例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToInt(const S: string): Integer; $[SysUtils.pas 
功能返回字符串S转换成整数 
说明字符串非整数表达时将引起异常 
参考 procedure System.Val 
例子 SpinEdit1.Value := StrToInt(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToIntDef(const S: string; Default: Integer): Integer; $[SysUtils.pas 
功能返回字符串S转换成整数 
说明字符串非整数表达时则返回默认值Default 
参考 procedure System.Val 
例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToInt(const S: string; out Value: Integer): Boolean; $[SysUtils.pas 
功能返回字符串S转换成整数Value是否成功 
说明字符串非整数表达时返回False并且Value将输出为0 
参考 procedure System.Val 
例子 
///////Begin TryStrToInt 
procedure 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转换成六十四位整数 
说明字符串非六十四位整数表达时将引起异常 
参考 procedure System.Val 
例子 SpinEdit1.Value := StrToInt64(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToInt64Def(const S: string; const Default: Int64): Int64; $[SysUtils.pas 
功能返回字符串S转换成六十四位整数 
说明字符串非六十四位整数表达时则返回默认值Default 
参考 procedure System.Val 
例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToInt64(const S: string; out Value: Int64): Boolean; $[SysUtils.pas 
功能返回字符串S转换成六十四位整数Value是否成功 
说明字符串非六十四位整数表达时返回False并且Value将输出为0 
参考 procedure System.Val 
例子 
///////Begin TryStrToInt64 
procedure TForm1.Button1Click(Sender: TObject); 
var 
I: Int64; 
begin 
CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); 
SpinEdit1.Value := I; 
end; 
///////End TryStrToInt64 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToBool(const S: string): Boolean; $[SysUtils.pas 
功能返回字符串S转换成逻辑值 
说明字符非逻辑表达时将引起异常 
参考 function SysUtils.TryStrToBool 
例子 CheckBox1.Checked := StrToBool(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToBoolDef(const S: string; const Default: Boolean): Boolean; $[SysUtils.pas 
功能返回字符串S转换成逻辑值 
说明字符非逻辑表达时则返回默认值Default 
参考 function SysUtils.TryStrToBool 
例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToBool(const S: string; out Value: Boolean): Boolean; $[SysUtils.pas 
功能返回字符串S转换成逻辑值Value是否成功 
说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 
参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 
例子 
///////Begin TryStrToBool 
procedure TForm1.Button1Click(Sender: TObject); 
var 
B: Boolean; 
begin 
SetLength(TrueBoolStrs, 2); 
SetLength(FalseBoolStrs, 2); 
TrueBoolStrs := 'True'; 
FalseBoolStrs := 'False'; 
TrueBoolStrs := 'Yes'; 
FalseBoolStrs := 'No'; 
CheckBox1.Checked := TryStrToBool(Edit1.Text, B); 
CheckBox2.Checked := B; 
end; 
///////End TryStrToBool 
附加 
///////Begin TryStrToBool 
function TryStrToBool(const S: string; out Value: Boolean): Boolean; 
function CompareWith(const aArray: array of string): Boolean; 
var 
I: Integer; 
begin 
Result := False; 
for I := Low(aArray) to High(aArray) do 
if AnsiSameText(S, aArray) 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 
Value := 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转换成字符串 
说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' 
参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 
例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function LoadStr(Ident: Integer): string; $[SysUtils.pas 
功能返回根据标识Ident的字符串资源 
说明字符串资源是指程序的内部资源 
参考 function SysUtils.FindStringResource 
例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FmtLoadStr(Ident: Integer; const Args: array of const): string; $[SysUtils.pas 
功能返回格式化的字符串资源 
说明字符串资源是指程序的内部资源 
参考 function SysUtils.FmtStr;function SysUtils.FindStringResource 
例子 <null>; 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas 
功能返回指针字符串的长度 
说明当指针字符串Str为nil时将触发异常 
参考 <null> 
例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas 
功能返回指针字符串的结尾 
说明当指针字符串Str为nil时将触发异常 
参考 <null> 
例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): PChar; $[SysUtils.pas 
功能返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 
说明 Dest没有分配资源将触发异常s 
参考 function System.Move 
例子 
///////Begin StrMove 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: PChar; 
begin 
vBuffer := '0123456789'; 
StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 
Edit2.Text := vBuffer; 
end; 
///////End StrMove 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrCopy(Dest: PChar; const Source: PChar): PChar; $[SysUtils.pas 
功能返回将指针字符串Source复制到指针字符串Dest中 
说明 Dest应已经分配足够的空间非则将触发异常 
参考 <null> 
例子 
///////Begin StrCopy 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: PChar; 
begin 
GetMem(vBuffer, Length(Edit1.Text) + 1); 
StrCopy(vBuffer, PChar(Edit1.Text)); 
Edit2.Text := vBuffer; 
FreeMem(vBuffer); 
end; 
///////End StrCopy 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrECopy(Dest:PChar; const Source: PChar): PChar; $[SysUtils.pas 
功能返回将指针字符串Source复制到指针字符串Dest中的结尾 
说明可以连接指针字符串 
参考 <null> 
例子 
///////Begin StrECopy 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
begin 
StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); 
Edit3.Text := vBuffer; 
end; 
///////End StrECopy 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; $[SysUtils.pas 
功能返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 
说明 Dest应已经分配足够的空间非则将触发异常 
参考 <null> 
例子 
///////Begin StrLCopy 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
begin 
StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 
Edit2.Text := vBuffer; 
end; 
///////End StrLCopy 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrPCopy(Dest: PChar; const Source: string): PChar; $[SysUtils.pas 
功能返回将指针字符串Source复制到指针字符串Dest中 
说明 StrLCopy(Dest, PChar(Source), Length(Source)) 
参考 function SysUtils.StrLCopy 
例子 
///////Begin StrPCopy 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
begin 
StrPCopy(vBuffer, PChar(Edit1.Text)); 
Edit2.Text := vBuffer; 
end; 
///////End StrPCopy 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: Cardinal): PChar; $[SysUtils.pas 
功能返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 
说明 StrLCopy(Dest, PChar(Source), MaxLen) 
参考 function SysUtils.StrLCopy 
例子 
///////Begin StrPLCopy 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
begin 
StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); 
Edit2.Text := vBuffer; 
end; 
///////End StrPLCopy 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrCat(Dest: PChar; const Source: PChar): PChar; $[SysUtils.pas 
功能返回连接指针字符串Dest和指针字符串Source 
说明 StrCopy(StrEnd(Dest), Source) 
参考 function SysUntils.StrCopy 
例子 
///////Begin StrCat 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
begin 
StrPCopy(vBuffer, Edit1.Text); 
StrCat(vBuffer, PChar(Edit2.Text)); 
Edit3.Text := vBuffer; 
end; 
///////End StrCat 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; $[SysUtils.pas 
功能返回连接指针字符串Dest和指针字符串Source 
说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 
参考 <null> 
例子 
///////Begin StrLCat 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
begin 
StrPCopy(vBuffer, Edit1.Text); 
StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); 
Edit3.Text := vBuffer; 
end; 
///////End StrLCat 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 
参考 <null> 
例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 
参考 <null> 
例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串指定长度 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 
参考 <null> 
例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串指定长度 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 
参考 <null> 
例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 
功能返回在指针字符串Str搜索字符Chr第一个出现的地址 
说明没有找到则返回空指针 
参考 <null> 
例子 Edit2.Text := StrScan(PChar(Edit1.Text), '</null></null></null></null></null></null></null></null></null></null></null></null>'); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 
功能返回在指针字符串Str搜索字符Chr最后一个出现的地址 
说明没有找到则返回空指针 
参考 <null> 
例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas 
功能返回指针字符串Str2在Str1中第一个出现的地址 
说明没有找到则返回空指针;StrPos('12345', '3') = '345' 
参考 <null> 
例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrUpper(Str: PChar): PChar; $[SysUtils.pas 
功能返回指针字符串Str大写 
说明非小写字符不处理 
参考 <null> 
例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrLower(Str: PChar): PChar; $[SysUtils.pas 
功能返回指针字符串Str小写 
说明非大写字符不处理 
参考 <null> 
例子 Edit1.Text := StrLower(PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrPas(const Str: PChar): string; $[SysUtils.pas 
功能返回指针字符串Str转换成字符串 
说明也可以直接赋值 
参考 <null> 
例子 Edit1.Text := StrPas(PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas 
功能返回分配指定空间的内存资源给指针字符串 
说明空间的大小也将保存;用StrDispose才能全部释放 
参考 function System.GetMem 
例子 
///////Begin StrAlloc 
procedure TForm1.Button1Click(Sender: TObject); 
var 
P: PChar; 
begin 
P := StrAlloc(SpinEdit1.Value); 
ShowMessage(IntToStr(StrLen(P))); 
Dec(P, SizeOf(Cardinal)); 
ShowMessage(IntToStr(Cardinal(Pointer(P)^))); 
Inc(P, SizeOf(Cardinal)); 
StrDispose(P); 
end; 
///////End StrAlloc</null></null></null></null></null></null></null></null></null></null></null></null></null></null></null></null></null></null>
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas 
功能返回通过函数StrAlloc分配的缓冲区大小 
说明出现异常情况则返回不可预知的结果 
参考 function System.SizeOf 
例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrNew(const Str: PChar): PChar; $[SysUtils.pas 
功能返回复制一个新的指针字符串 
说明如果Str为nil则返回nil 
参考 function SysUtils.StrLen;function SysUtils.StrMove;function SysUtils.StrAlloc 
例子 
///////Begin StrNew,StrDispose 
procedure TForm1.Button1Click(Sender: TObject); 
var 
P: PChar; 
begin 
P := StrNew(PChar(Edit1.Text)); 
ShowMessage(P); 
StrDispose(P); 
end; 
///////End StrNew,StrDispose 
━━━━━━━━━━━━━━━━━━━━━ 
函数 procedure StrDispose(Str: PChar); $[SysUtils.pas 
功能释放指针字符串Str内存资源 
说明如果Str为nil则不作任何处理;并且释放空间大小信息 
参考 function System.Dec;function System.SizeOf;function System.FreeMem 
例子 <参见StrNew> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas 
功能返回按指定方式格式化一个数组常量的字符形式 
说明这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 
"%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 
Format('x=%d', ); //'x=12' //最普通 
Format('x=%3d', ); //'x= 12' //指定宽度 
Format('x=%f', ); //'x=12.00' //浮点数 
Format('x=%.3f', ); //'x=12.000' //指定小数 
Format('x=%.*f', ); //'x=12.00000' //动态配置 
Format('x=%.5d', ); //'x=00012' //前面补充0 
Format('x=%.5x', ); //'x=0000C' //十六进制 
Format('x=%1:d%0:d', ); //'x=1312' //使用索引 
Format('x=%p', ); //'x=00000000' //指针 
Format('x=%1.1e', ); //'x=1.2E+001' //科学记数法 
Format('x=%%', []); //'x=%' //得到"%" 
S := Format('%s%d', ); //S := S + StrToInt(I); //连接字符串 
参考 proceduer SysUtils.FmtStr 
例子 Edit1.Text := Format(Edit2.Text, ); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 procedure FmtStr(var Result: string; const Format: string; const Args: array of const); $[SysUtils.pas 
功能按指定方式格式化一个数组常量的字符形式返回 
说明 <参见Format> 
参考 function SysUtils.FormatBuf;function System.Length;function System.SetLength 
例子 <参见Format> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrFmt(Buffer, Format: PChar; const Args: array of const): PChar; $[SysUtils.pas 
功能返回按指定方式格式化一个数组常量的字符指针形式 
说明如果Buffer和Format其中只要有一个为nil则返回nil 
参考 function SysUtils.FormatBuf 
例子 <参见Format> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; const Args: array of const): PChar; $[SysUtils.pas 
功能返回按指定方式和长度格式化一个数组常量的字符指针形式 
说明 StrLFmt(vBuffer, 6, '%d|12345', ) = '1024|1'; 
参考 function SysUtils.FormatBuf 
例子 <参见Format> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas 
功能返回按指定方式格式化一个数组常量到缓冲区Buffer中 
说明 <null> 
参考 <null> 
例子 <参见Format> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function WideFormat(const Format: WideString; const Args: array of const): WideString; $[SysUtils.pas 
功能返回按指定方式格式化一个数组常量的多字节字符形式 
说明 <null> 
参考 procedure SysUtils.WideFmtStr 
例子 <参见Format> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 procedure WideFmtStr(var Result: WideString; const Format: WideString; const Args: array of const); $[SysUtils.pas 
功能按指定方式格式化一个数组常量的多字节字符形式返回 
说明 <null> 
参考 function SysUtils.WideFormatBuf 
例子 <参见Format> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas 
功能返回按指定方式格式化一个数组常量到缓冲区Buffer中 
说明 <null> 
参考 <null> 
例子 <参见Format> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FloatToStr(Value: Extended): string; $[SysUtils.pas 
功能返回浮点数Value转换成字符串 
说明当浮点数大等于1E15将采用科学记数法 
参考 function SysUtils.FloatToText 
例子 Edit1.Text := FloatToStr(Now); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function CurrToStr(Value: Currency): string; $[SysUtils.pas 
功能返回货币数Value转换成字符串 
说明货币数只保留四位小数 
参考 function SysUtils.FloatToText 
例子 Edit1.Text := CurrToStr(Now); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas 
功能返回浮点数Value转换成货币数 
说明如果浮点数Value超出范围则将触发异常 
参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency 
例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string; $[SysUtils.pas 
功能返回浮点数以指定格式转换成字符串 
说明 Precision指定精度;Digits指定小数宽度 
参考 function SysUtils.FloatToText 
例子 
///////Begin FloatToStrF 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 
ffGeneral, SpinEdit1.Value, SpinEdit2.Value); 
Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 
ffExponent, SpinEdit1.Value, SpinEdit2.Value); 
Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 
ffFixed, SpinEdit1.Value, SpinEdit2.Value); 
Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 
ffNumber, SpinEdit1.Value, SpinEdit2.Value); 
Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 
ffCurrency, SpinEdit1.Value, SpinEdit2.Value); 
end; 
///////End FloatToStrF 
━━━━━━━━━━━━━━━━━━━━━ 
函数 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 FloatToText(BufferArg: PChar; const Value; ValueType: TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; $[SysUtils.pas 
功能返回浮点数以指定格式转换成指针字符串的内存大小 
说明 Precision指定精度;Digits指定小数宽度 
参考 <null> 
例子 
///////Begin FloatToText 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
E: Extended; 
begin 
E := StrToFloatDef(Edit1.Text, 0); 
SpinEdit3.Value := FloatToText(vBuffer, E, 
fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); 
Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); 
end; 
///////End FloatToText( 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FormatFloat(const Format: string; Value: Extended): string; $[SysUtils.pas 
功能返回浮点数类型以指定格式字符串Format转换成字符串 
说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' 
参考 function SysUtils.FloatToTextFmt 
例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FormatCurr(const Format: string; Value: Currency): string; $[SysUtils.pas 
功能返回货币类型以指定格式字符串Format转换成字符串 
说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' 
参考 function SysUtils.FloatToTextFmt 
例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FloatToTextFmt(Buf: PChar; const Value; ValueType: TFloatValue; Format: PChar): Integer; $[SysUtils.pas 
功能返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 
说明 ValueType指定无类型参数Value的类型 
参考 <null> 
例子 
///////Begin FloatToTextFmt 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
E: Extended; 
begin 
E := StrToFloatDef(Edit1.Text, 0); 
SpinEdit1.Value := FloatToTextFmt(vBuffer, E, 
fvExtended, PChar(Edit2.Text)); 
Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); 
end; 
///////End FloatToTextFmt 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToFloat(const S: string): Extended; $[SysUtils.pas 
功能返回字符串S转换成浮点数 
说明字符串非浮点数表达时将引起异常 
参考 function SysUtils.TextToFloat 
例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToFloatDef(const S: string; const Default: Extended): Extended; $[SysUtils.pas 
功能返回字符串S转换成浮点数 
说明字符串非浮点数表达时则返回默认值Default 
参考 function SysUtils.TextToFloat 
例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToFloat(const S: string; out Value: Extended): Boolean; overload; $[SysUtils.pas 
函数 function TryStrToFloat(const S: string; out Value: Single): Boolean; overload; $[SysUtils.pas 
函数 function TryStrToFloat(const S: string; out Value: Double): Boolean; overload; $[SysUtils.pas 
功能返回字符串S转换成浮点数Value是否成功 
说明字符串非浮点数表达时返回False并且Value将输出为不确定的值 
参考 function SysUtils.TextToFloat 
例子 
///////Begin TryStrToFloat 
procedure TForm1.Button1Click(Sender: TObject); 
var 
E: Extended; 
begin 
CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); 
Edit2.Text := FormatFloat('', E); 
end; 
///////End TryStrToFloat 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToCurr(const S: string): Currency; $[SysUtils.pas 
功能返回字符串S转换成货币数 
说明字符串非货币数表达时将引起异常 
参考 function SysUtils.TextToFloat 
例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToCurrDef(const S: string; const Default: Currency): Currency; $[SysUtils.pas 
功能返回字符串S转换成货币数 
说明字符串非货币数表达时则返回默认值Default 
参考 function SysUtils.TextToFloat 
例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToCurr(const S: string; out Value: Currency): Boolean; $[SysUtils.pas 
功能返回字符串S转换成货币数Value是否成功 
说明字符串非货币数表达时返回False并且Value将输出为不确定的值 
参考 function SysUtils.TextToFloat 
例子 
///////Begin TryStrToCurr 
procedure TForm1.Button1Click(Sender: TObject); 
var 
C: Currency; 
begin 
CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); 
Edit2.Text := FormatCurr('', C); 
end; 
///////End TryStrToCurr 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): Boolean; $[SysUtils.pas 
功能返回将指针字符串Buffer转换成无类型变量Value 
说明 ValueType指定无类型参数Value的类型 
参考 <null> 
例子 
///////Begin TextToFloat 
procedure TForm1.Button1Click(Sender: TObject); 
var 
E: Extended; 
begin 
CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, 
fvExtended); 
Edit2.Text := FormatFloat('', E); 
end; 
///////End TextToFloat 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas 
功能返回日期DateTime转换成字符串 
说明转换格式由系统变量ShortDateFormat控制 
参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat 
例子 Edit1.Text := DateToStr(Date); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas 
功能返回时间DateTime转换成字符串 
说明转换格式由系统变量LongTimeFormat控制 
参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat 
例子 Edit1.Text := TimeToStr(Date); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function DateTimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas 
功能返回日期时间DateTime转换成字符串 
说明转换格式由系统变量ShortDateFormat和LongTimeFormat控制 
参考 function SysUtils.DateTimeToString 
例子 Edit1.Text := DateTimeToStr(Now); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToDate(const S: string): TDateTime; $[SysUtils.pas 
功能返回字符串S转换成日期 
说明字符非日期表达时将引起异常 
参考 function SysUtils.TryStrToDate 
例子 DateTimePicker1.Date := StrToDate(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToDateDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas 
功能返回字符串S转换成日期 
说明字符非日期表达时则返回默认值Default 
参考 function SysUtils.TryStrToDate 
例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas 
功能返回字符串S转换成日期Value是否成功 
说明字符非日期表达时返回False并且Value将输出为0 
参考 <null> 
例子 
///////Begin TryStrToDate 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vDateTime: TDateTime; 
begin 
CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); 
DateTimePicker1.Date := vDateTime; 
end; 
///////End TryStrToDate 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToTime(const S: string): TDateTime; $[SysUtils.pas 
功能返回字符串S转换成时间 
说明字符非时间表达时将引起异常 
参考 function SysUtils.TryStrToTime 
例子 DateTimePicker1.Time := StrToTime(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToTimeDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas 
功能返回字符串S转换成时间 
说明字符非时间表达时则返回默认值Default 
参考 function SysUtils.TryStrToTime 
例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas 
功能返回字符串S转换成时间Value是否成功 
说明字符非时间表达时返回False并且Value将输出为0 
参考 <null> 
例子 
///////Begin TryStrToTime 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vDateTime: TDateTime; 
begin 
CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); 
DateTimePicker1.Time := vDateTime; 
end; 
///////End TryStrToTime 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas 
功能返回字符串S转换成日期时间 
说明字符非日期时间表达时将引起异常 
参考 function SysUtils.TryStrToDateTime 
例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToDateTimeDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas 
功能返回字符串S转换成日期时间 
说明字符非日期时间表达时则返回默认值Default 
参考 function SysUtils.TryStrToDateTime 
例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas 
功能返回字符串S转换成日期时间Value是否成功 
说明字符非日期时间表达时返回False并且Value将输出为0 
参考 <null> 
例子 
///////Begin TryStrToDateTime 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vDateTime: TDateTime; 
begin 
CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); 
Edit2.Text := DateTimeToStr(vDateTime); 
end; 
///////End TryStrToDateTime 
━━━━━━━━━━━━━━━━━━━━━ 
函数 procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime); $[SysUtils.pas 
功能用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 
说明 <参见FormatDateTime> 
参考 function System.SetString 
例子 <参见FormatDateTime> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function GetLocaleStr(Locale, LocaleType: Integer; const Default: string): string; platform; $[SysUtils.pas 
功能返回当前系统指定参数的字符串值 
说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' 
参考 function Windows.GetLocaleInfo 
例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<null>'); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): Char; platform; $[SysUtils.pas 
功能返回当前系统指定参数的字符值 
说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' 
参考 function Windows.GetLocaleInfo 
例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function ByteType(const S: string; Index: Integer): TMbcsByteType; $[SysUtils.pas 
功能返回字符串S位置Index上的字符在MBCS中类型 
说明多字节字符系统:Multi-Byte Character System (MBCS) 
参考 var SysUtils.SysLocale 
例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; $[SysUtils.pas 
功能返回指针字符串Str位置Index上的字符在MBCS中类型 
说明 Index从0开始 
参考 var SysUtils.SysLocale 
例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), SpinEdit2.Value)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; $[SysUtils.pas 
功能返回字符串S中有多少个多字节字符 
说明 MaxLen指定处理字符个数 
参考 function SysUtils.ByteToCharIndex 
例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function CharToByteLen(const S: string; MaxLen: Integer): Integer; $[SysUtils.pas 
功能返回字符串S中有多少个字符 
说明 MaxLen指定处理多字节字符个数 
参考 var SysUtils.SysLocale 
例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function ByteToCharIndex(const S: string; Index: Integer): Integer; $[SysUtils.pas 
功能返回字符位置对应的多字节字符位置 
说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 
参考 function SysUtils.NextCharIndex 
例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function CharToByteIndex(const S: string; Index: Integer): Integer; $[SysUtils.pas 
功能返回多字节字符位置对应的字符起始位置 
说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 
参考 function System.Length 
例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas 
功能返回第一个字符的宽度 
说明参数为空则返回0 
参考 function Windows.CharNext 
例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas 
功能返回字符指针Str的下一个字符指针 
说明 StrNextChar('1234') = '234'; 
参考 function Windows.CharNext 
例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function CharLength(const S: String; Index: Integer): Integer; $[SysUtils.pas 
功能返回字符串中指定位置的字符宽度 
说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 
参考 function System.Assert;function SysUtils.StrCharLength 
例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function NextCharIndex(const S: String; Index: Integer): Integer; $[SysUtils.pas 
功能返回下一个字符的位置 
说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 
参考 function System.Assert;function SysUtils.StrCharLength 
例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function IsPathDelimiter(const S: string; Index: Integer): Boolean; $[SysUtils.pas 
功能返回字符串S中指定位置Index上是否是一个路径分隔符 
说明 IsPathDelimiter('C:/Windows', 3) = True 
参考 const SysUtils.PathDelim;function SysUtils.ByteType 
例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function IsDelimiter(const Delimiters, S: string; Index: Integer): Boolean; $[SysUtils.pas 
功能返回字符串S中指定位置Index上是否是一个分隔符Delimiters 
说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True 
参考 function SysUtils.ByteType 
例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function IncludeTrailingPathDelimiter(const S: string): string; $[SysUtils.pas 
功能返回包括最后路径分隔符 
说明最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 
参考 function SysUtils.IsPathDelimiter;function System.Length 
例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function IncludeTrailingBackslash(const S: string): string; platform; $[SysUtils.pas 
功能返回包括最后斜线 
说明 Result := IncludeTrailingPathDelimiter(S); 
参考 function SysUtils.IncludeTrailingPathDelimiter 
例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function ExcludeTrailingPathDelimiter(const S: string): string; $[SysUtils.pas 
功能返回排除最后路径分隔符 
说明最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 
参考 function SysUtils.IsPathDelimiter;function System.Length;function System.SetLength 
例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function ExcludeTrailingBackslash(const S: string): string; platform; $[SysUtils.pas 
功能返回排除最后斜线 
说明 Result := ExcludeTrailingPathDelimiter(S) 
参考 function SysUtils.ExcludeTrailingPathDelimiter 
例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function LastDelimiter(const Delimiters, S: string): Integer; $[SysUtils.pas 
功能返回最后一个分隔符的位置 
说明 LastDelimiter('.', 'kingron.myetang.com') = 16 
参考 function SysUtils.StrScan;function SysUtils.ByteType 
例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiCompareFileName(const S1, S2: string): Integer; $[SysUtils.pas 
功能返回比较两个文件名 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 
参考 function SysUtils.AnsiCompareStr 
例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas 
功能返回两个文件名是否相等 
说明区分大小写 
参考 function SysUtils.AnsiCompareFileName 
例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas 
功能返回小写文件名 
说明在非多字节字符系统上相当于AnsiLowerCase 
参考 function SysUtils.AnsiLowerCase 
例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas 
功能返回大写文件名 
说明在非多字节字符系统上相当于AnsiUpperCase 
参考 function SysUtils.AnsiUpperCase 
例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas 
功能返回子串Substr在字符中第一次出现的位置 
说明不存在则返回0 
参考 SysUtils.AnsiStrPos 
例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas 
功能返回指针子串Substr在指针字符中第一次出现的指针位置 
说明不存在则返回nil 
参考 function SysUtils.StrByteType 
例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas 
功能返回在指针字符串Str搜索字符Chr最后一个出现的地址 
说明支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' 
参考 function SysUtils.AnsiStrScan 
例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas 
功能返回在指针字符串Str搜索字符Chr第一个出现的地址 
说明支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' 
参考 function SysUtils.StrScan 
例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.');</null></null></null></null></null></null></null></null></null></null></null></null></null>
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; $[SysUtils.pas 
功能返回替换后的字符串 
说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 
参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function System.Copy 
例子 
///////Begin StringReplace 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
Memo1.Lines.Values['[]'] := 
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); 
Memo1.Lines.Values[''] := 
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, ); 
Memo1.Lines.Values[''] := 
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, ); 
Memo1.Lines.Values[''] := 
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, ); 
end; 
///////End StringReplace 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StringToGUID(const S: string): TGUID; $[SysUtils.pas 
功能返回字符串S转换成全局标识 
说明如果字符串非法将触发异常 
参考 fuction Windows.Succeeded 
例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas 
功能返回全局标识GUID转换成字符串 
说明 <null> 
参考 fuction Windows.Succeeded 
例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); 
━━━━━━━━━━━━━━━━━━━━━</null>
<h1 id="日期与时间函数-date-and-time-routinesunit-sysutils">================================================= 
日期与时间函数 (Date and Time Routines) 
Unit: SysUtils</h1>
<h1 id="date-传回今天日期function-date-tdatetimedatetimetostr-将时间格式转为字串function-datetimetostrdatetime-tdatetimestringdatetimetostring-将时间格式转为字串procedure-datetimetostringvar-result-stringconst-format-stringdatetime-tdatetimedatetostr-将日期格式转为字串function-datetostrdate-tdatetime-stringdayofweek-传回今天星期几function-dayofweekdate-tdatetime-integerdecodedate-分解所指定的日期为年月日procedure-decodedatedate-tdatetimevar-year-month-dayworddecodetime-分解所指定的日期为时分秒procedure-decodetimetime-tdatetimevar-hour-min-secmsec-wordencodedate-传回将年月日所组合的日期格式function-encodedateyear-month-day-wordtdatetimeencodetime-传回将时分秒所组合的时间格式function-encodetimehour-min-sec-msecword-tdatetimeformatdatetime-以指定的格式传回日期时间function-formatdatetimeconst-format-stringdatetime-tdatetimestringnow-传回现在的日期时间function-now-tdatetimestrtodate-将字串转为日期格式function-strtodateconst-sstring-tdatetimestrtodatetime-将字串转为日期时间格式function-strtodatetimeconst-s-string-tdatetimestrtotime-将字串转为时间格式function-strtotimeconst-sstring-tdatetimetime-传回现在时间function-time-tdatetimetimetostr-将时格式转为字串function-timetostrtimetdatetime-string">Date 传回今天日期。function Date: TDateTime; 
DateTimeToStr 将时间格式转为字串。function DateTimeToStr(DateTime: TDateTime):String; 
DateTimeToString 将时间格式转为字串。 
procedure DateTimeToString(var Result: string;const Format: string;DateTime: TDateTime); 
DateToStr 将日期格式转为字串。function DateToStr(Date: TDateTime): String; 
DayOfWeek 传回今天星期几。function DayOfWeek(Date: TDateTime): Integer; 
DecodeDate 分解所指定的日期为年、月、日。 
procedure DecodeDate(Date: TDateTime;var Year, Month, Day:Word); 
DecodeTime 分解所指定的日期为时、分、秒。 
procedure DecodeTime(Time: TDateTime;var Hour, Min, Sec,MSec: Word); 
EncodeDate 传回将年、月、日所组合的日期格式。 
function EncodeDate(Year, Month, Day: Word):TDateTime; 
EncodeTime 传回将时、分、秒所组合的时间格式。 
function EncodeTime(Hour, Min, Sec, MSec:Word): TDateTime; 
FormatDateTime 以指定的格式传回日期时间。 
function FormatDateTime(const Format: string;DateTime: TDateTime):String; 
Now 传回现在的日期时间。function Now: TDateTime; 
StrToDate 将字串转为日期格式。function StrToDate(const S:string): TDateTime; 
StrToDateTime 将字串转为日期时间格式function StrToDateTime(const S: string): TDateTime; 
StrToTime 将字串转为时间格式。function StrToTime(const S:string): TDateTime; 
Time 传回现在时间。function Time: TDateTime; 
TimeToStr 将时格式转为字串。function TimeToStr(Time:TDateTime): String;</h1>
<h1 id="档案管理函数unit-sysutils">档案管理函数 
Unit: SysUtils</h1>
ChangeFileExt 变更档案的延伸档名。 
function ChangeFileExt(const FileName,Extension: string):string; 
DateTimeToFileDate 将Delphi 的日期格式转换为DOS的日期格式。 
functionDateTimeToFileDate(DateTime:TDateTime): Longint; 
DeleteFile 删除一个档案。 
function DeleteFile(const FileName: string):Boolean; 
DiskFree 传回磁碟的可用空间。function DiskFree(Drive: Byte): Longint; 
DiskSize 传回指定磁碟的容量大小。function DiskSize(Drive: Byte): Longint; 
ExpandFileName 传回一个完整的路径及档名字串。 
function expandFileName(const FileName: string):string; 
ExtractFileExt 传回档案的延伸档名。function ExtractFileExt(const FileName string):string; 
ExtractFileName 传回档案的档名。function ExtractFileName(const FileName: string):string; 
ExtractFilePath 传回档案的路径。function ExtractFilePath(const FileName: string):string; 
FileAge 传回档案的年纪function FileAge(const FileName: string):Longint; 
FileCreate 以指定档名建立一个档案。function FileCreate(const FileName: string):Integer; 
FileClose 关闭指定的档案。procedureFileClose(Handle: Integer); 
FileDateToDateTime 将DOS 的日期格式转为Delphi 的日期格式。 
function FileDateToDateTime(FileDate: Longint):TDateTime; 
FileExists 判别档案是否存在。function FileExists(const FileName: string):Boolean; 
FileGetAttr 传回档案属性。function FileGetAttr(const FileName: string):Integer; 
FileGetDate 传回档案的日期及时间。function FileGetDate(Handle: Integer): Longint; 
FileRead 从指定的档案读入资料。 
function FileRead(Handle:Integer; var Buffer;Count:Longint):Longint; 
FileSearch 在目录列中搜寻指定的档案。function FileSearch(constName, DirList: string):string; 
FileSeek 改变档案游标的位置。function FileSeek(Handle: Integer;Offset: Longint;Origin: Integer):Longint; 
FileSetAttr 设定档案属性。function FileSetAttr(const FileName: string;Attr:Integer): Integer; 
FileSetDate 设定档案的日期及时间。procedure FileSetDate(Handle: Integer; Age:Longint); 
FileOpen 开启档案。function FileOpen(const FileName: string; Mode:Word): Integer; 
FileWrite 写资料到档案。function FileWrite(Handle:Integer;const Buffer; Count:Longint): Longint; 
FindClose 终止找寻第一个／下一个的动作。procedure FindClose(var SearchRec: TSearchRec); 
FindFirst 寻找第一个符合的档案并设定其属性。 
function FindFirst(const Path: string;Attr: Word; var F:TSearchRec): Integer; 
FindNext 传回下一个符合的档案。function FindNext(var F:TSearchRec): Integer; 
RenameFile 变更档名。function RenameFile(const OldName,NewName: string):Boolean;
<h3 id="怎样在-case-语句中使用字符串">怎样在 CASE 语句中使用字符串</h3>
/////////////////////////////////////////
首先建立 CaseString 函数，用于获取某字符串在一个字符串数组中的顺序：
function CaseString (const s: string; 
const x: array of string): Integer; 
var i: Integer; 
begin 
Result:= -1; // Default return parameter 
for i:= Low (x) to High (x) do begin 
if s = x then begin Result:= i; Exit; end; 
end; 
end;
<h3 id="low-提供第一个数组成员通常是0high-则返回最后一个因为-casestring-返回的是待查字符串在字符串数组中的位置因此它可以被直接用到-case-语句中">Low() 提供第一个数组成员（通常是0），High() 则返回最后一个。因为 CaseString 返回的是待查字符串在字符串数组中的位置，因此，它可以被直接用到 CASE 语句中：</h3>
search:= 'delphi3000'; 
case CaseString (search, ['delphi3000', 
'delphipages', 
'Torry's']) of 
0: s:= 'Excellent!'; 
1: s:= 'Good source'; 
2: s:= 'Not bad!'; 
end;
copy(str,pos,num) 从str字符串的pos处开始,截取num个字符的串返回.假设str为'abcdef',copy(str,3,2)='cd',copy(str,4,10)='def' 
concat(str1,str2{,strn}) 把各自变量连接起来,返回连接后的字符串(长度不能超过255)
<h3 id="lengthstr-返回str的字符个数即其长度">length(str) 返回str的字符个数,即其长度.</h3>
<h3 id="posobjtarget-在target字符串中找出第一个出现obj的第一个字符位置如果找不到返回0">pos(obj,target) 在target字符串中找出第一个出现obj的第一个字符位置,如果找不到,返回0.</h3>
<h3 id="ansistrlastchar你好结果是好如果有半个汉字出现返回这半个汉字二者字符串长度分别为2和1">AnsiStrLastChar('你好')结果是“好”。如果有半个汉字出现，返回这半个汉字。二者字符串长度分别为2和1。</h3>
CompareStr - 区分大小写 
CompareText - 不区分大小写
//////////////////////////////////////////////////////// 
{判断字符是否是数字} 
function IsDigit(ch: char): boolean; 
begin 
Result := ch in ['0'..'9']; 
end; 
{判断字符是否是大写字符} 
function IsUpper(ch: char): boolean; 
begin 
Result := ch in ['A'..'Z']; 
end;
{判断字符是否是小写字符} 
function IsLower(ch: char): boolean; 
begin 
Result := ch in ['a'..'z']; 
end;
{转换为大写字符} 
function ToUpper(ch: char): char; 
begin 
Result := chr(ord(ch) and $DF); 
end;
{转换为小写字符} 
function ToLower(ch: char): char; 
begin 
Result := chr(ord(ch) or $20); 
end;
{ Capitalizes first letter of every word in s } 
function Proper(const s: string): string; 
var 
i: Integer; 
CapitalizeNextLetter: Boolean; 
begin 
Result := LowerCase(s); 
CapitalizeNextLetter := True; 
for i := 1 to Length(Result) do 
begin 
if CapitalizeNextLetter and IsLower(Result) then 
Result := ToUpper(Result); 
CapitalizeNextLetter := Result = ' '; 
end; 
end; 
////////////////////////////////////////////////////////////
<h3 id="_"></h3>
Function p2pcount( s, ss1, ss2 : string ): integer; 
var i, j, slen : integer; 
begin 
i := pos( ss1, s ); 
j := pos( ss2, s ); 
slen := Length(ss2); 
if j >= i then Result := j - i + slen else Result := 0; 
end;
<h3 id="_-1"></h3>
function ScanStr(ToScan: PChar; Sign: Char):PChar; 
begin 
Result:= nil; 
if ToScan <> nil then 
while (ToScan^ <> #0) do begin 
if ToScan^ = Sign then begin 
Result:= ToScan; 
break; 
end; 
inc(ToScan); 
end; 
end; 
/////////////////////////////
<h3 id="替换字符串中子串的函数他可以从字符串中找出指定子串并替换为另一子串">替换字符串中子串的函数，他可以从字符串中找出指定子串，并替换为另一子串。</h3>
function replacing(S,source,target:string):string; 
var site,StrLen:integer; 
begin 
{source在S中出现的位置} 
site:=pos(source,s);
{source的长度} 
StrLen:=length(source);
{删除source字符串} 
delete(s,site,StrLen);
{插入target字符串到S中} 
insert(target,s,site);
{返回新串} 
replacing:=s; 
end; 
///////////////////////
<h3 id="另两个替换字符串中子串的函数">另两个替换字符串中子串的函数</h3>
function repl_substr( sub1, sub2, s: string ): string; 
var i: integer; 
begin 
repeat 
i := pos( sub1, s ) ; 
if i > 0 then begin 
delete( s, i, Length(sub1)); 
insert( sub2, s, i ); 
end; 
until i < 1; 
Result := s; 
end;
function ReplaceText(const S,ReplacePiece,ReplaceWith: String):String;
Var Position: Integer; 
TempStr: String; 
begin 
Position := Pos(ReplacePiece,S); 
if Position > 0 then Begin 
TempStr := S; 
Delete(TempStr,1,Position-1+Length(ReplacePiece)); 
Result := 
Copy(S,1,Position-1)+ReplaceWith+ReplaceText(TempStr,ReplacePiece,ReplaceWith)
End else Result := S; 
end; 
////////////////////////
<h3 id="替换全部子字符串的函数">替换全部子字符串的函数</h3>
function ReplaceSub(str, sub1, sub2: String): String; 
var 
aPos: Integer; 
rslt: String;
begin 
aPos := Pos(sub1, str); 
rslt := ''; 
while (aPos <> 0) do begin 
rslt := rslt + Copy(str, 1, aPos - 1) + sub2; 
Delete(str, 1, aPos + Length(sub1)); 
aPos := Pos(sub1, str); 
end; 
Result := rslt + str; 
end;
/////////////////////////
<h3 id="在字符串左右填充指定数量的指定字符">在字符串左右填充指定数量的指定字符</h3>
function UT_PadString(inString :string; maxLength :integer; padChar :char; 
left :boolean) :string; 
begin 
result := inString; 
while (Length(result) < maxLength) do 
if (left) then 
result := padChar + result 
else 
result := result + padChar; 
end; 
/////////////////////////////////////
<h3 id="提取字符串中指定子字符串前的字符串">提取字符串中指定子字符串前的字符串</h3>
Function Before ( Src:string ; Var S:string ) : string ; 
Var 
F : Word ;
begin 
F := POS (Src,S) ; 
if F=0 then 
Before := S 
else 
Before := COPY(S,1,F-1) ; 
end ; 
//////////////////////////////////
<h3 id="提取字符串中指定子字符串后的字符串">提取字符串中指定子字符串后的字符串</h3>
Function After ( Src:string ; Var S:string ) : string ; 
Var 
F : Word ;
begin 
F := POS (Src,S) ; 
if F=0 then 
After := '' 
else 
After := COPY(S,F+length(src),length(s)) ; 
end ; 
////////////////////////////////////
<h3 id="判断字符串是否可以转换为整数">判断字符串是否可以转换为整数</h3>
function IsIntStr(const S: string): boolean; 
begin 
Result:=StrToIntDef(S,0)=StrToIntDef(S,1); 
end; 
//////////////////////////////////////
<h3 id="从字符串中删除指定字符串">从字符串中删除指定字符串</h3>
procedure RemoveInvalid(what, where: string): string;
var 
tstr: string;
begin 
tstr:=where; 
while pos(what, tstr)>0 do 
tstr:=copy(tstr,1,pos(what,tstr)-1) + 
copy(tstr,pos(what,tstr)+length(tstr),length(tstr)); 
Result:=tstr; 
end; 
用法: 
NewStr:=RemoveInvalid('<invalid>','This <invalid> is my string and I wan to 
remove the word <invalid>'); 
///////////////////////////////////////////</invalid></invalid></invalid>
<h3 id="根据某个字符分割字符串的函数">根据某个字符分割字符串的函数</h3>
procedure SeparateTerms(s : string;Separator : char;Terms : TStringList); 
{ This browses a string and divide it into terms whenever the given 
separator is found. The separators will be removed } 
var 
hs : string; 
p : integer;
<h1 id="begintermsclear--first-remove-all-remaining-termsif-lengths0-then--nothin-to-separateexitpposseparatorswhile-p0-dobeginhscopys1p-1--copy-termtermsaddhs--add-to-listdeletes1p--remove-term-and-separatorpposseparators--search-next-separatorendif-lengths0-thentermsadds--add-remaining-termend">begin 
Terms.Clear; // First remove all remaining terms 
if Length(s)=0 then // Nothin' to separate 
Exit; 
p:=Pos(Separator,s); 
while P<>0 do 
begin 
hs:=Copy(s,1,p-1); // Copy term 
Terms.Add(hs); // Add to list 
Delete(s,1,p); // Remove term and separator 
p:=Pos(Separator,s); // Search next separator 
end; 
if Length(s)>0 then 
Terms.Add(s); // Add remaining term 
end;</h1>
<h1 id="-用-法">= 用法</h1>
var 
Terms : TStringList; 
i : integer;
const 
TestStr = '1st term;2nd term;3rd term';
begin 
Terms:=TStringList.Create; 
SeparateTerms(TestStr,';',Terms); 
for i:=0 to terms.Count-1 do 
ShowMessage(Terms.Strings); 
Terms.Free; 
end; 
/////////////////////////////
<h3 id="根据一组字符分割字符串的函数">根据一组字符分割字符串的函数</h3>
type 
Charset = set of Char; 
var 
f : Text; 
s : String;
procedure WriteStringSplitted(var s: String; Separators: Charset); 
var 
a,e : Integer; {anfang und ende des w鰎tchens} 
begin 
a := 1; 
for e := 1 to Length(s) do 
if s in Separators then begin 
WriteLn(Copy(s, a, e-a)); 
a := e + 1; 
end; 
WriteLn(Copy(s, a, e-a+1)); 
end;
begin 
Assign(f, 'c:/dingsbums/text.txt'); 
Reset(f); 
while not EOF(f) do begin 
ReadLn(f,s); 
WriteStringSplitted(s, [':', ',']); 
end; 
Close(f); 
end. 
//////////////////////////////////////////////////
{=} 
{ 函数 : RESULTSTRING = HexToBin(HEXSTRING) 
{ 目的 : 把十六进制字符串转换为二进制字符串 
{ 
{=} 
{ 函数 : RESULTINTEGER = HexCharToInt(HEXCHAR) 
{ 目的 : 转换一个十六进制字符为整数 
{=} 
{ 函数 : RESULTSTRING = HexCharToBin(HEXCHAR) 
{ 目的 : 转换一个十六进制字符为二进制字符串 
{=} 
{ 函数 : RESULTINTEGER = Pow(BASE,POWER) 
{ 目的 : 指数函数 
{=} 
{ 函数 : RESULTINTEGER = BinStrToInt(BINSTRING) 
{ 目的 : 把二进制字符串转换为整数 
{=} 
{ 函数 : RESULTSTRING = DecodeSMS7Bit (PDUSTRING) 
{ 目的 : 解码一个7-bit SMS (GSM 03.38) 为ASCII码 
{=} 
{ 函数 : RESULTSTRING = ReverseStr (SOURCESTRING) 
{ 目的 : 反转一个字符串 
{=}
unit BinHexTools; 
interface
function HexToBin(HexNr : string): string; 
function HexCharToInt(HexToken : char):Integer; 
function HexCharToBin(HexToken : char): string; 
function pow(base, power: integer): integer; 
function BinStrToInt(BinStr : string) : integer; 
function DecodeSMS7Bit(PDU : string):string; 
function ReverseStr(SourceStr : string) : string;
implementation
uses sysutils, dialogs;
function HexCharToInt(HexToken : char):Integer; 
begin 
{if HexToken>#97 then HexToken:=Chr(Ord(HexToken)-32);
Result:=0;
if (HexToken>#47) and (HexToken<#58) then { chars 0....9 } 
Result:=Ord(HexToken)-48 
else if (HexToken>#64) and (HexToken<#71) then { chars A....F } 
Result:=Ord(HexToken)-65 + 10; 
end;
function HexCharToBin(HexToken : char): string; 
var DivLeft : integer; 
begin 
DivLeft:=HexCharToInt(HexToken); { first HEX->BIN } 
Result:=''; 
{ Use reverse dividing } 
repeat { Trick; divide by 2 } 
if odd(DivLeft) then { result = odd ? then bit = 1 } 
Result:='1'+Result { result = even ? then bit = 0 } 
else 
Result:='0'+Result;
DivLeft:=DivLeft div 2; { keep dividing till 0 left and length = 4 } 
until (DivLeft=0) and (length(Result)=4); { 1 token = nibble = 4 bits } 
end;
function HexToBin(HexNr : string): string; 
{ only stringsize is limit of binnr } 
var Counter : integer; 
begin 
Result:='';
for Counter:=1 to length(HexNr) do 
Result:=Result+HexCharToBin(HexNr); 
end;
function pow(base, power: integer): integer; 
var counter : integer; 
begin 
Result:=1;
for counter:=1 to power do 
Result:=Result*base; 
end;
function BinStrToInt(BinStr : string) : integer; 
var counter : integer; 
begin 
if length(BinStr)>16 then 
raise ERangeError.Create(#13+BinStr+#13+ 
'is not within the valid range of a 16 bit binary.'+#13);
Result:=0;
for counter:=1 to length(BinStr) do 
if BinStr='1' then 
Result:=Result+pow(2,length(BinStr)-counter); 
end;
function DecodeSMS7Bit(PDU : string):string; 
var OctetStr : string; 
OctetBin : string; 
Charbin : string; 
PrevOctet: string; 
Counter : integer; 
Counter2 : integer; 
begin 
PrevOctet:=''; 
Result:='';
for Counter:=1 to length(PDU) do 
begin 
if length(PrevOctet)>=7 then { if 7 Bit overflow on previous } 
begin 
if BinStrToInt(PrevOctet)<>0 then 
Result:=Result+Chr(BinStrToInt(PrevOctet)) 
else Result:=Result+' ';
PrevOctet:=''; 
end;
if Odd(Counter) then { only take two nibbles at a time } 
begin 
OctetStr:=Copy(PDU,Counter,2); 
OctetBin:=HexToBin(OctetStr);
Charbin:=''; 
for Counter2:=1 to length(PrevOctet) do 
Charbin:=Charbin+PrevOctet;
for Counter2:=1 to 7-length(PrevOctet) do 
Charbin:=OctetBin+Charbin;
if BinStrToInt(Charbin)<>0 then Result:=Result+Chr(BinStrToInt(CharBin)) 
else Result:=Result+' ';
PrevOctet:=Copy(OctetBin,1,length(PrevOctet)+1); 
end; 
end; 
end;
function ReverseStr(SourceStr : string) : string; 
var Counter : integer; 
begin 
Result:='';
for Counter:=1 to length(SourceStr) do 
Result:=SourceStr+Result; 
end;
end.
<h3 id="在delphi中没有前导0输出的函数如c语言中printf08d10就会输000000010但是在实际应用中经常会用到此种函数如财务等数据的输出如何实现以下的代码实现了这种功能">在Delphi中没有前导0输出的函数，如C语言中printf("%08d",10);就会输"000000010"，但是在实际应用中经常会用到此种函数，如财务等数据的输出。如何实现？以下的代码实现了这种功能，</h3>
function qd0str(const count,num:integer):String; 
Var 
s1,s2:String; 
begin 
s1:=IntToStr(Num); 
s2:='00000000000000000000'; 
if (Length(s1)>=count) then 
s2:='' 
else if(count>20) then 
SetLength(S2,20-Length(s1)) 
else 
SetLength(S2,count-Length(s1));
Result:=S2+S1; 
end;
<h3 id="函数的参数count为输出字符串的总长度在函数中定义为最大20num为需要转换成字符串的数据">函数的参数count为输出字符串的总长度，在函数中定义为最大20。Num为需要转换成字符串的数据。</h3>
//////////////////////////////////////// 
function IntToLZStr(value : integer;digits : byte) : string; 
var 
Res : string;
begin 
Res:=IntToStr(value); 
while Length(Res)<digits do 
Insert('0',res,1); 
IntToLZStr:=Res; 
end;
函数 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas 
功能返回两个字符串是否相似 
说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写 
参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc 
例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiContainsText(const AText, ASubText: string): Boolean; $[StrUtils.pas 
功能返回字符串AText是否包含子串ASubText 
说明不区分大小写 
参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos 
例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStartsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 
功能返回字符串AText是否以子串ASubText开头 
说明不区分大小写 
参考 function Windows.CompareString 
例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiEndsText(const ASubText, AText: string): Boolean; $[StrUtils.pas 
功能返回字符串AText是否以子串ASubText结尾 
说明不区分大小写 
参考 function Windows.CompareString 
例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas 
功能返回字符串AText中用子串AFromText替换成子串AToText的结果 
说明不区分大小写 
参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 
例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiMatchText(const AText: string; const AValues: array of string): Boolean; $[StrUtils.pas 
功能返回字符串数组AValues中是否包含字符串AText 
说明不区分大小写 
参考 function StrUtils.AnsiIndexText 
例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiIndexText(const AText: string; const AValues: array of string): Integer; $[StrUtils.pas 
功能返回字符串AText在字符串数组AValues中的位置 
说明不区分大小写;如果不包含则返回-1 
参考 function SysUtils.AnsiSameText 
例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiContainsStr(const AText, ASubText: string): Boolean; $[StrUtils.pas 
功能返回字符串AText是否包含子串ASubText 
说明区分大小写 
参考 function StrUtils.AnsiPos 
例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStartsStr(const ASubText, AText: string): Boolean; $[StrUtils.pas 
功能返回字符串AText是否以子串ASubText开头 
说明区分大小写 
参考 function SysUtils.AnsiSameStr 
例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiEndsStr(const ASubText, AText: string): Boolean; $[StrUtils.pas 
功能返回字符串AText是否以子串ASubText结尾 
说明区分大小写 
参考 function SysUtils.AnsiSameStr 
例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiReplaceStr(const AText, AFromText, AToText: string): string; $[StrUtils.pas 
功能返回字符串AText中用子串AFromText替换成子串AToText的结果 
说明区分大小写 
参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags 
例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiMatchStr(const AText: string; const AValues: array of string): Boolean; $[StrUtils.pas 
功能返回字符串数组AValues中是否包含字符串AText 
说明区分大小写 
参考 function StrUtils.AnsiIndexStr 
例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiIndexStr(const AText: string; const AValues: array of string): Integer; $[StrUtils.pas 
功能返回字符串AText在字符串数组AValues中的位置 
说明区分大小写 
参考 function SysUtils.AnsiSameStr 
例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function DupeString(const AText: string; ACount: Integer): string; $[StrUtils.pas 
功能返回字符串AText的ACount个复本 
说明当ACount为0时返回'' 
参考 function System.SetLength 
例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function ReverseString(const AText: string): string; $[StrUtils.pas 
功能返回字符串AText的反序 
说明 ReverseString('1234') = '4321' 
参考 function System.SetLength 
例子 Edit3.Text := ReverseString(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StuffString(const AText: string; AStart, ALength: Cardinal; const ASubText: string): string; $[StrUtils.pas 
功能返回嵌套字符串 
说明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd' 
参考 function System.Copy 
例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function RandomFrom(const AValues: array of string): string; overload; $[StrUtils.pas 
功能随机返回字符串数组AValues中的一个元素 
说明之前建议执行Randomize 
参考 function System.Random 
例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string; overload; $[StrUtils.pas 
功能返回指定的逻辑字符串 
说明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否' 
参考 <null> 
例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function LeftStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas 
功能返回字符串AText左边的ACount个字符 
说明 LeftStr('123456', 3) = '123' 
参考 function System.Copy 
例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function RightStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas 
功能返回字符串AText右边的ACount个字符 
说明 RightStr('123456', 3) = '456' 
参考 function System.Copy 
例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function MidStr(const AText: string; const AStart, ACount: Integer): string; $[StrUtils.pas 
功能返回字符串AText从AStart开始的ACount个字符 
说明其实就是Copy 
参考 function System.Copy 
例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: Integer; SearchString: String; Options: TStringSearchOptions = ): PChar; $[StrUtils.pas 
功能返回第一个搜索到的指针位置 
说明这函数常用于文本中搜索字符串 
参考 <null> 
例子 
///////Begin SearchBuf 
function SearchEdit(EditControl: TCustomEdit; const SearchString: String; 
SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean; 
var 
Buffer, P: PChar; 
Size: Word; 
begin 
Result := False; 
if (Length(SearchString) = 0) then Exit; 
Size := EditControl.GetTextLen; 
if (Size = 0) then Exit; 
Buffer := StrAlloc(Size + 1); 
try 
EditControl.GetTextBuf(Buffer, Size + 1); 
P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength, 
SearchString, SearchOptions); 
if P <> nil then begin 
EditControl.SelStart := P - Buffer; 
EditControl.SelLength := Length(SearchString); 
Result := True; 
end; 
finally 
StrDispose(Buffer); 
end; 
end;</null></null>
procedure TForm1.Button1Click(Sender: TObject); 
var 
SearchOptions: TStringSearchOptions; 
begin 
SearchOptions := []; 
if CheckBox1.Checked then 
Include(SearchOptions, soDown); 
if CheckBox2.Checked then 
Include(SearchOptions, soMatchCase); 
if CheckBox3.Checked then 
Include(SearchOptions, soWholeWord); 
SearchEdit(Memo1, Edit1.Text, SearchOptions); 
Memo1.SetFocus; 
end; 
///////End SearchBuf 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function Soundex(const AText: string; ALength: TSoundexLength = 4): string; $[StrUtils.pas 
功能返回探测字符串 
说明根据探测法(Soundex)可以找到相进的字符串;http://www.nara.gov/genealogy/coding.html 
参考 <null> 
例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SoundexInt(const AText: string; ALength: TSoundexIntLength = 4): Integer; $[StrUtils.pas 
功能返回探测整数 
说明 ALength的值越大解码准确率越高 
参考 <null> 
例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas 
功能返回探测整数的解码 
说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello') 
参考 <null> 
例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SoundexWord(const AText: string): Word; $[StrUtils.pas 
功能返回探测文字数值 
说明没有参数ALength已经固定为4 
参考 <null> 
例子 SpinEdit2.Value := SoundexWord(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas 
功能返回探测文字数值的解码 
说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello') 
参考 <null> 
例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SoundexSimilar(const AText, AOther: string; ALength: TSoundexLength = 4): Boolean; $[StrUtils.pas 
功能返回两个字符串的探测字符串是否相同 
说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength) 
参考 <null> 
例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SoundexCompare(const AText, AOther: string; ALength: TSoundexLength = 4): Integer; $[StrUtils.pas 
功能返回比较两个字符串的探测字符串的结果 
说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, ALength)) 
参考 function SysUtils.AnsiCompareStr 
例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SoundexProc(const AText, AOther: string): Boolean; $[StrUtils.pas 
功能调用SoundexSimilar返回两个字符串的探测字符串是否相同 
说明系统变量AnsiResemblesProc的默认值 
参考 function StrUtils.AnsiResemblesText 
例子 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function NewStr(const S: string): PString; deprecated; $[SysUtils.pas 
功能返回一个新的字符串指针地址 
说明字符串S为空时返回NullStr 
参考 procedure System.New 
例子 
////////Begin NewStr,DisposeStr 
procedure TForm1.Button1Click(Sender: TObject); 
var 
P: PString; 
begin 
P := NewStr(Edit1.Text); 
Edit2.Text := P^; 
DisposeStr(P); 
end; 
////////End NewStr,DisposeStr 
━━━━━━━━━━━━━━━━━━━━━ 
函数 procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas 
功能释放字符串指针P资源 
说明配合函数NewStr使用 
参考 procedure System.Dispose 
例子 <如上参见,如下参见> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 procedure AssignStr(var P: PString; const S: string); deprecated; $[SysUtils.pas 
功能将字符串S更新给字符串指针P 
说明更新值时会释放以前字符串指针的资源 
参考 function SysUtils.NewStr;function SysUtils.DisposeStr 
例子 
////////Begin AssignStr 
procedure 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 
功能在字符串Dest后追加字符串S 
说明相当于Dest := Dest + S;Delphi6已经不建议使用 
参考 <null> 
例子 
////////Begin AppendStr 
procedure 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的大写形式 
说明非小写字符不处理 
参考 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 
功能返回比较两个字符 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 
参考 <null> 
例子 SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; assembler; $[SysUtils.pas 
功能返回比较两个内存指针 
说明 CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), PChar('12c'), 3)=False 
参考 <null> 
例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas 
功能返回比较两个字符串 
说明不区分大小写 
参考 <null> 
例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas 
功能返回两个字符串是否相等 
说明不区分大小写 
参考 <null> 
例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiUpperCase(const S: string): string; $[SysUtils.pas 
功能返回字符串S的大写形式 
说明 ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变 
参考 function Windows.CharUpperBuff 
例子 Edit2.Text := AnsiUpperCase(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiLowerCase(const S: string): string; $[SysUtils.pas 
功能返回字符串S的小写形式 
说明非大写字符不处理 
参考 function Windows.CharLowerBuff 
例子 Edit2.Text := AnsiLowerCase(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas 
功能反回比较两个字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 
参考 function Windows.CompareString 
例子 SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas 
功能返回两个字符串是否相等 
说明区分大小写 
参考 function SysUtils.AnsiCompareStr 
例子 CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas 
功能反回比较两个字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 
参考 function Windows.CompareString 
例子 SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas 
功能返回两个字符串是否相等 
说明不区分大小写 
参考 function SysUtils.AnsiCompareText 
例子 CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 
参考 function System.CompareString 
例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)) 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略) 
参考 function Windows.CompareString 
例子 SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text)) 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串指定长度 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度) 
参考 function Windows.CompareString 
例子 SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串指定长度 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 
参考 function Windows.CompareString 
例子 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 WideUpperCase(const S: WideString): WideString; $[SysUtils.pas 
功能返回双字节字符串的大写形式 
说明 WideChar双字节字符 
参考 function Windows.CharUpperBuffW 
例子 Edit2.Text := WideUpperCase(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas 
功能返回双字节字符串的小写形式 
说明我怎么就测试不出来呢 
参考 function Windows.CharLowerBuffW 
例子 Edit2.Text := WideLowerCase(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function WideCompareStr(const S1, S2: WideString): Integer; $[SysUtils.pas 
功能返回比较两个双字节字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 
参考 function Windows.CompareStringW 
例子 SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas 
功能返回两个双字节字符串是否相同 
说明区分大小写 
参考 function SysUtils.WideCompareStr 
例子 CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function WideCompareText(const S1, S2: WideString): Integer; $[SysUtils.pas 
功能返回比较两个双字节字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写 
参考 function Windows.CompareStringW 
例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function WideSameText(const S1, S2: WideString): Boolean; $[SysUtils.pas 
功能返回两个双字节字符串是否相同 
说明不区分大小写 
参考 function SysUtils.WideCompareText 
例子 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); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function 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; $[SysUtils.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中的表现形式 
说明单引号中的一个单引号将转成两个 
参考 procedure System.Insert 
例子 Edit2.Text := QuotedStr(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiQuotedStr(const S: string; Quote: Char): string; $[SysUtils.pas 
功能返回字符串S以字符Quote为引号的表现形式 
说明 AnsiQuotedStr('hello"world', '@')='@hello"world@';AnsiQuotedStr('hello"world', '"')='"hello""world"' 
参考 function SysUtils.AnsiStrScan 
例子 Edit2.Text := AnsiQuotedStr(Edit1.Text, '"'); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; $[SysUtils.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 
例子 <null> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas 
功能返回字符串Ident是否是正确的标识符 
说明标识符::字母|下划线[字母|下划线|数字]... 
参考 <null> 
例子 CheckBox1.Checked := IsValidIdent(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function IntToStr(Value: Integer): string; overload; $[SysUtils.pas 
函数 function IntToStr(Value: Int64): string; overload; $[SysUtils.pas 
功能返回整数Value转换成字符串 
说明 Format('%d', ) 
参考 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 
功能返回整数Value转换成十六进制表现结果;Format('%.x', ) 
说明参数Digits指定字符最小宽度;最小宽度不足时将用0填充 
参考 function SysUtils.FmtStr 
例子 Edit2.Text := IntToHex(SpinEdit1.Value, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToInt(const S: string): Integer; $[SysUtils.pas 
功能返回字符串S转换成整数 
说明字符串非整数表达时将引起异常 
参考 procedure System.Val 
例子 SpinEdit1.Value := StrToInt(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToIntDef(const S: string; Default: Integer): Integer; $[SysUtils.pas 
功能返回字符串S转换成整数 
说明字符串非整数表达时则返回默认值Default 
参考 procedure System.Val 
例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToInt(const S: string; out Value: Integer): Boolean; $[SysUtils.pas 
功能返回字符串S转换成整数Value是否成功 
说明字符串非整数表达时返回False并且Value将输出为0 
参考 procedure System.Val 
例子 
///////Begin TryStrToInt 
procedure 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转换成六十四位整数 
说明字符串非六十四位整数表达时将引起异常 
参考 procedure System.Val 
例子 SpinEdit1.Value := StrToInt64(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToInt64Def(const S: string; const Default: Int64): Int64; $[SysUtils.pas 
功能返回字符串S转换成六十四位整数 
说明字符串非六十四位整数表达时则返回默认值Default 
参考 procedure System.Val 
例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToInt64(const S: string; out Value: Int64): Boolean; $[SysUtils.pas 
功能返回字符串S转换成六十四位整数Value是否成功 
说明字符串非六十四位整数表达时返回False并且Value将输出为0 
参考 procedure System.Val 
例子 
///////Begin TryStrToInt64 
procedure TForm1.Button1Click(Sender: TObject); 
var 
I: Int64; 
begin 
CheckBox1.Checked := TryStrToInt64(Edit1.Text, I); 
SpinEdit1.Value := I; 
end; 
///////End TryStrToInt64 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToBool(const S: string): Boolean; $[SysUtils.pas 
功能返回字符串S转换成逻辑值 
说明字符非逻辑表达时将引起异常 
参考 function SysUtils.TryStrToBool 
例子 CheckBox1.Checked := StrToBool(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToBoolDef(const S: string; const Default: Boolean): Boolean; $[SysUtils.pas 
功能返回字符串S转换成逻辑值 
说明字符非逻辑表达时则返回默认值Default 
参考 function SysUtils.TryStrToBool 
例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToBool(const S: string; out Value: Boolean): Boolean; $[SysUtils.pas 
功能返回字符串S转换成逻辑值Value是否成功 
说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正 
参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 
例子 
///////Begin TryStrToBool 
procedure TForm1.Button1Click(Sender: TObject); 
var 
B: Boolean; 
begin 
SetLength(TrueBoolStrs, 2); 
SetLength(FalseBoolStrs, 2); 
TrueBoolStrs := 'True'; 
FalseBoolStrs := 'False'; 
TrueBoolStrs := 'Yes'; 
FalseBoolStrs := 'No'; 
CheckBox1.Checked := TryStrToBool(Edit1.Text, B); 
CheckBox2.Checked := B; 
end; 
///////End TryStrToBool 
附加 
///////Begin TryStrToBool 
function TryStrToBool(const S: string; out Value: Boolean): Boolean; 
function CompareWith(const aArray: array of string): Boolean; 
var 
I: Integer; 
begin 
Result := False; 
for I := Low(aArray) to High(aArray) do 
if AnsiSameText(S, aArray) 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 
Value := 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转换成字符串 
说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1' 
参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs 
例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function LoadStr(Ident: Integer): string; $[SysUtils.pas 
功能返回根据标识Ident的字符串资源 
说明字符串资源是指程序的内部资源 
参考 function SysUtils.FindStringResource 
例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FmtLoadStr(Ident: Integer; const Args: array of const): string; $[SysUtils.pas 
功能返回格式化的字符串资源 
说明字符串资源是指程序的内部资源 
参考 function SysUtils.FmtStr;function SysUtils.FindStringResource 
例子 <null>; 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas 
功能返回指针字符串的长度 
说明当指针字符串Str为nil时将触发异常 
参考 <null> 
例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas 
功能返回指针字符串的结尾 
说明当指针字符串Str为nil时将触发异常 
参考 <null> 
例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value; 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): PChar; $[SysUtils.pas 
功能返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中 
说明 Dest没有分配资源将触发异常s 
参考 function System.Move 
例子 
///////Begin StrMove 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: PChar; 
begin 
vBuffer := '0123456789'; 
StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 
Edit2.Text := vBuffer; 
end; 
///////End StrMove 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrCopy(Dest: PChar; const Source: PChar): PChar; $[SysUtils.pas 
功能返回将指针字符串Source复制到指针字符串Dest中 
说明 Dest应已经分配足够的空间非则将触发异常 
参考 <null> 
例子 
///////Begin StrCopy 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: PChar; 
begin 
GetMem(vBuffer, Length(Edit1.Text) + 1); 
StrCopy(vBuffer, PChar(Edit1.Text)); 
Edit2.Text := vBuffer; 
FreeMem(vBuffer); 
end; 
///////End StrCopy 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrECopy(Dest:PChar; const Source: PChar): PChar; $[SysUtils.pas 
功能返回将指针字符串Source复制到指针字符串Dest中的结尾 
说明可以连接指针字符串 
参考 <null> 
例子 
///////Begin StrECopy 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
begin 
StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text)); 
Edit3.Text := vBuffer; 
end; 
///////End StrECopy 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; $[SysUtils.pas 
功能返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中 
说明 Dest应已经分配足够的空间非则将触发异常 
参考 <null> 
例子 
///////Begin StrLCopy 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
begin 
StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value); 
Edit2.Text := vBuffer; 
end; 
///////End StrLCopy 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrPCopy(Dest: PChar; const Source: string): PChar; $[SysUtils.pas 
功能返回将指针字符串Source复制到指针字符串Dest中 
说明 StrLCopy(Dest, PChar(Source), Length(Source)) 
参考 function SysUtils.StrLCopy 
例子 
///////Begin StrPCopy 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
begin 
StrPCopy(vBuffer, PChar(Edit1.Text)); 
Edit2.Text := vBuffer; 
end; 
///////End StrPCopy 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrPLCopy(Dest: PChar; const Source: string; MaxLen: Cardinal): PChar; $[SysUtils.pas 
功能返回将字符串Source指定长度MaxLen复制到指针字符串Dest中 
说明 StrLCopy(Dest, PChar(Source), MaxLen) 
参考 function SysUtils.StrLCopy 
例子 
///////Begin StrPLCopy 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
begin 
StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value); 
Edit2.Text := vBuffer; 
end; 
///////End StrPLCopy 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrCat(Dest: PChar; const Source: PChar): PChar; $[SysUtils.pas 
功能返回连接指针字符串Dest和指针字符串Source 
说明 StrCopy(StrEnd(Dest), Source) 
参考 function SysUntils.StrCopy 
例子 
///////Begin StrCat 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
begin 
StrPCopy(vBuffer, Edit1.Text); 
StrCat(vBuffer, PChar(Edit2.Text)); 
Edit3.Text := vBuffer; 
end; 
///////End StrCat 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; $[SysUtils.pas 
功能返回连接指针字符串Dest和指针字符串Source 
说明 [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度 
参考 <null> 
例子 
///////Begin StrLCat 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
begin 
StrPCopy(vBuffer, Edit1.Text); 
StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value); 
Edit3.Text := vBuffer; 
end; 
///////End StrLCat 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异 
参考 <null> 
例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 
参考 <null> 
例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串指定长度 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异 
参考 <null> 
例子 SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas 
功能返回比较两个指针字符串指定长度 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异 
参考 <null> 
例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value) 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 
功能返回在指针字符串Str搜索字符Chr第一个出现的地址 
说明没有找到则返回空指针 
参考 <null> 
例子 Edit2.Text := StrScan(PChar(Edit1.Text), '</null></null></null></null></null></null></null></null></null></null></null></null>'); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas 
功能返回在指针字符串Str搜索字符Chr最后一个出现的地址 
说明没有找到则返回空指针 
参考 <null> 
例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*'); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas 
功能返回指针字符串Str2在Str1中第一个出现的地址 
说明没有找到则返回空指针;StrPos('12345', '3') = '345' 
参考 <null> 
例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrUpper(Str: PChar): PChar; $[SysUtils.pas 
功能返回指针字符串Str大写 
说明非小写字符不处理 
参考 <null> 
例子 Edit1.Text := StrUpper(PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrLower(Str: PChar): PChar; $[SysUtils.pas 
功能返回指针字符串Str小写 
说明非大写字符不处理 
参考 <null> 
例子 Edit1.Text := StrLower(PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrPas(const Str: PChar): string; $[SysUtils.pas 
功能返回指针字符串Str转换成字符串 
说明也可以直接赋值 
参考 <null> 
例子 Edit1.Text := StrPas(PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas 
功能返回分配指定空间的内存资源给指针字符串 
说明空间的大小也将保存;用StrDispose才能全部释放 
参考 function System.GetMem 
例子 
///////Begin StrAlloc 
procedure TForm1.Button1Click(Sender: TObject); 
var 
P: PChar; 
begin 
P := StrAlloc(SpinEdit1.Value); 
ShowMessage(IntToStr(StrLen(P))); 
Dec(P, SizeOf(Cardinal)); 
ShowMessage(IntToStr(Cardinal(Pointer(P)^))); 
Inc(P, SizeOf(Cardinal)); 
StrDispose(P); 
end; 
///////End StrAlloc</null></null></null></null></null></null></null></null></null></null></null></null></null></null></null></null></null></null>
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas 
功能返回通过函数StrAlloc分配的缓冲区大小 
说明出现异常情况则返回不可预知的结果 
参考 function System.SizeOf 
例子 SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrNew(const Str: PChar): PChar; $[SysUtils.pas 
功能返回复制一个新的指针字符串 
说明如果Str为nil则返回nil 
参考 function SysUtils.StrLen;function SysUtils.StrMove;function SysUtils.StrAlloc 
例子 
///////Begin StrNew,StrDispose 
procedure TForm1.Button1Click(Sender: TObject); 
var 
P: PChar; 
begin 
P := StrNew(PChar(Edit1.Text)); 
ShowMessage(P); 
StrDispose(P); 
end; 
///////End StrNew,StrDispose 
━━━━━━━━━━━━━━━━━━━━━ 
函数 procedure StrDispose(Str: PChar); $[SysUtils.pas 
功能释放指针字符串Str内存资源 
说明如果Str为nil则不作任何处理;并且释放空间大小信息 
参考 function System.Dec;function System.SizeOf;function System.FreeMem 
例子 <参见StrNew> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas 
功能返回按指定方式格式化一个数组常量的字符形式 
说明这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解 
"%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型 
Format('x=%d', ); //'x=12' //最普通 
Format('x=%3d', ); //'x= 12' //指定宽度 
Format('x=%f', ); //'x=12.00' //浮点数 
Format('x=%.3f', ); //'x=12.000' //指定小数 
Format('x=%.*f', ); //'x=12.00000' //动态配置 
Format('x=%.5d', ); //'x=00012' //前面补充0 
Format('x=%.5x', ); //'x=0000C' //十六进制 
Format('x=%1:d%0:d', ); //'x=1312' //使用索引 
Format('x=%p', ); //'x=00000000' //指针 
Format('x=%1.1e', ); //'x=1.2E+001' //科学记数法 
Format('x=%%', []); //'x=%' //得到"%" 
S := Format('%s%d', ); //S := S + StrToInt(I); //连接字符串 
参考 proceduer SysUtils.FmtStr 
例子 Edit1.Text := Format(Edit2.Text, ); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 procedure FmtStr(var Result: string; const Format: string; const Args: array of const); $[SysUtils.pas 
功能按指定方式格式化一个数组常量的字符形式返回 
说明 <参见Format> 
参考 function SysUtils.FormatBuf;function System.Length;function System.SetLength 
例子 <参见Format> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrFmt(Buffer, Format: PChar; const Args: array of const): PChar; $[SysUtils.pas 
功能返回按指定方式格式化一个数组常量的字符指针形式 
说明如果Buffer和Format其中只要有一个为nil则返回nil 
参考 function SysUtils.FormatBuf 
例子 <参见Format> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; const Args: array of const): PChar; $[SysUtils.pas 
功能返回按指定方式和长度格式化一个数组常量的字符指针形式 
说明 StrLFmt(vBuffer, 6, '%d|12345', ) = '1024|1'; 
参考 function SysUtils.FormatBuf 
例子 <参见Format> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas 
功能返回按指定方式格式化一个数组常量到缓冲区Buffer中 
说明 <null> 
参考 <null> 
例子 <参见Format> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function WideFormat(const Format: WideString; const Args: array of const): WideString; $[SysUtils.pas 
功能返回按指定方式格式化一个数组常量的多字节字符形式 
说明 <null> 
参考 procedure SysUtils.WideFmtStr 
例子 <参见Format> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 procedure WideFmtStr(var Result: WideString; const Format: WideString; const Args: array of const); $[SysUtils.pas 
功能按指定方式格式化一个数组常量的多字节字符形式返回 
说明 <null> 
参考 function SysUtils.WideFormatBuf 
例子 <参见Format> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas 
功能返回按指定方式格式化一个数组常量到缓冲区Buffer中 
说明 <null> 
参考 <null> 
例子 <参见Format> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FloatToStr(Value: Extended): string; $[SysUtils.pas 
功能返回浮点数Value转换成字符串 
说明当浮点数大等于1E15将采用科学记数法 
参考 function SysUtils.FloatToText 
例子 Edit1.Text := FloatToStr(Now); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function CurrToStr(Value: Currency): string; $[SysUtils.pas 
功能返回货币数Value转换成字符串 
说明货币数只保留四位小数 
参考 function SysUtils.FloatToText 
例子 Edit1.Text := CurrToStr(Now); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas 
功能返回浮点数Value转换成货币数 
说明如果浮点数Value超出范围则将触发异常 
参考 const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency 
例子 Edit1.Text := CurrToStr(FloatToCurr(Now)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string; $[SysUtils.pas 
功能返回浮点数以指定格式转换成字符串 
说明 Precision指定精度;Digits指定小数宽度 
参考 function SysUtils.FloatToText 
例子 
///////Begin FloatToStrF 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 
ffGeneral, SpinEdit1.Value, SpinEdit2.Value); 
Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 
ffExponent, SpinEdit1.Value, SpinEdit2.Value); 
Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 
ffFixed, SpinEdit1.Value, SpinEdit2.Value); 
Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 
ffNumber, SpinEdit1.Value, SpinEdit2.Value); 
Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0), 
ffCurrency, SpinEdit1.Value, SpinEdit2.Value); 
end; 
///////End FloatToStrF 
━━━━━━━━━━━━━━━━━━━━━ 
函数 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 FloatToText(BufferArg: PChar; const Value; ValueType: TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; $[SysUtils.pas 
功能返回浮点数以指定格式转换成指针字符串的内存大小 
说明 Precision指定精度;Digits指定小数宽度 
参考 <null> 
例子 
///////Begin FloatToText 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
E: Extended; 
begin 
E := StrToFloatDef(Edit1.Text, 0); 
SpinEdit3.Value := FloatToText(vBuffer, E, 
fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value); 
Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value); 
end; 
///////End FloatToText( 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FormatFloat(const Format: string; Value: Extended): string; $[SysUtils.pas 
功能返回浮点数类型以指定格式字符串Format转换成字符串 
说明 FormatFloat(',.00', 1234567890) = '1,234,567,890.00' 
参考 function SysUtils.FloatToTextFmt 
例子 Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FormatCurr(const Format: string; Value: Currency): string; $[SysUtils.pas 
功能返回货币类型以指定格式字符串Format转换成字符串 
说明 FormatCurr(',.00', 1234567890) = '1,234,567,890.00' 
参考 function SysUtils.FloatToTextFmt 
例子 Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function FloatToTextFmt(Buf: PChar; const Value; ValueType: TFloatValue; Format: PChar): Integer; $[SysUtils.pas 
功能返回浮点数以指定格式字符串Format转换成指针字符串的内存大小 
说明 ValueType指定无类型参数Value的类型 
参考 <null> 
例子 
///////Begin FloatToTextFmt 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vBuffer: array of Char; 
E: Extended; 
begin 
E := StrToFloatDef(Edit1.Text, 0); 
SpinEdit1.Value := FloatToTextFmt(vBuffer, E, 
fvExtended, PChar(Edit2.Text)); 
Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value); 
end; 
///////End FloatToTextFmt 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToFloat(const S: string): Extended; $[SysUtils.pas 
功能返回字符串S转换成浮点数 
说明字符串非浮点数表达时将引起异常 
参考 function SysUtils.TextToFloat 
例子 var E: Extended; begin E := StrToFloat(Edit1.Text); end; 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToFloatDef(const S: string; const Default: Extended): Extended; $[SysUtils.pas 
功能返回字符串S转换成浮点数 
说明字符串非浮点数表达时则返回默认值Default 
参考 function SysUtils.TextToFloat 
例子 var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end; 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToFloat(const S: string; out Value: Extended): Boolean; overload; $[SysUtils.pas 
函数 function TryStrToFloat(const S: string; out Value: Single): Boolean; overload; $[SysUtils.pas 
函数 function TryStrToFloat(const S: string; out Value: Double): Boolean; overload; $[SysUtils.pas 
功能返回字符串S转换成浮点数Value是否成功 
说明字符串非浮点数表达时返回False并且Value将输出为不确定的值 
参考 function SysUtils.TextToFloat 
例子 
///////Begin TryStrToFloat 
procedure TForm1.Button1Click(Sender: TObject); 
var 
E: Extended; 
begin 
CheckBox1.Checked := TryStrToFloat(Edit1.Text, E); 
Edit2.Text := FormatFloat('', E); 
end; 
///////End TryStrToFloat 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToCurr(const S: string): Currency; $[SysUtils.pas 
功能返回字符串S转换成货币数 
说明字符串非货币数表达时将引起异常 
参考 function SysUtils.TextToFloat 
例子 var C: Currency; begin C := StrToCurr(Edit1.Text); end; 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToCurrDef(const S: string; const Default: Currency): Currency; $[SysUtils.pas 
功能返回字符串S转换成货币数 
说明字符串非货币数表达时则返回默认值Default 
参考 function SysUtils.TextToFloat 
例子 var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end; 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToCurr(const S: string; out Value: Currency): Boolean; $[SysUtils.pas 
功能返回字符串S转换成货币数Value是否成功 
说明字符串非货币数表达时返回False并且Value将输出为不确定的值 
参考 function SysUtils.TextToFloat 
例子 
///////Begin TryStrToCurr 
procedure TForm1.Button1Click(Sender: TObject); 
var 
C: Currency; 
begin 
CheckBox1.Checked := TryStrToCurr(Edit1.Text, C); 
Edit2.Text := FormatCurr('', C); 
end; 
///////End TryStrToCurr 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): Boolean; $[SysUtils.pas 
功能返回将指针字符串Buffer转换成无类型变量Value 
说明 ValueType指定无类型参数Value的类型 
参考 <null> 
例子 
///////Begin TextToFloat 
procedure TForm1.Button1Click(Sender: TObject); 
var 
E: Extended; 
begin 
CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E, 
fvExtended); 
Edit2.Text := FormatFloat('', E); 
end; 
///////End TextToFloat 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas 
功能返回日期DateTime转换成字符串 
说明转换格式由系统变量ShortDateFormat控制 
参考 function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat 
例子 Edit1.Text := DateToStr(Date); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas 
功能返回时间DateTime转换成字符串 
说明转换格式由系统变量LongTimeFormat控制 
参考 function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat 
例子 Edit1.Text := TimeToStr(Date); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function DateTimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas 
功能返回日期时间DateTime转换成字符串 
说明转换格式由系统变量ShortDateFormat和LongTimeFormat控制 
参考 function SysUtils.DateTimeToString 
例子 Edit1.Text := DateTimeToStr(Now); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToDate(const S: string): TDateTime; $[SysUtils.pas 
功能返回字符串S转换成日期 
说明字符非日期表达时将引起异常 
参考 function SysUtils.TryStrToDate 
例子 DateTimePicker1.Date := StrToDate(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToDateDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas 
功能返回字符串S转换成日期 
说明字符非日期表达时则返回默认值Default 
参考 function SysUtils.TryStrToDate 
例子 DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToDate(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas 
功能返回字符串S转换成日期Value是否成功 
说明字符非日期表达时返回False并且Value将输出为0 
参考 <null> 
例子 
///////Begin TryStrToDate 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vDateTime: TDateTime; 
begin 
CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime); 
DateTimePicker1.Date := vDateTime; 
end; 
///////End TryStrToDate 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToTime(const S: string): TDateTime; $[SysUtils.pas 
功能返回字符串S转换成时间 
说明字符非时间表达时将引起异常 
参考 function SysUtils.TryStrToTime 
例子 DateTimePicker1.Time := StrToTime(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToTimeDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas 
功能返回字符串S转换成时间 
说明字符非时间表达时则返回默认值Default 
参考 function SysUtils.TryStrToTime 
例子 DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToTime(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas 
功能返回字符串S转换成时间Value是否成功 
说明字符非时间表达时返回False并且Value将输出为0 
参考 <null> 
例子 
///////Begin TryStrToTime 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vDateTime: TDateTime; 
begin 
CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime); 
DateTimePicker1.Time := vDateTime; 
end; 
///////End TryStrToTime 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas 
功能返回字符串S转换成日期时间 
说明字符非日期时间表达时将引起异常 
参考 function SysUtils.TryStrToDateTime 
例子 Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrToDateTimeDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas 
功能返回字符串S转换成日期时间 
说明字符非日期时间表达时则返回默认值Default 
参考 function SysUtils.TryStrToDateTime 
例子 Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas 
功能返回字符串S转换成日期时间Value是否成功 
说明字符非日期时间表达时返回False并且Value将输出为0 
参考 <null> 
例子 
///////Begin TryStrToDateTime 
procedure TForm1.Button1Click(Sender: TObject); 
var 
vDateTime: TDateTime; 
begin 
CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime); 
Edit2.Text := DateTimeToStr(vDateTime); 
end; 
///////End TryStrToDateTime 
━━━━━━━━━━━━━━━━━━━━━ 
函数 procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime); $[SysUtils.pas 
功能用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中 
说明 <参见FormatDateTime> 
参考 function System.SetString 
例子 <参见FormatDateTime> 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function GetLocaleStr(Locale, LocaleType: Integer; const Default: string): string; platform; $[SysUtils.pas 
功能返回当前系统指定参数的字符串值 
说明 GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)' 
参考 function Windows.GetLocaleInfo 
例子 Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, '<null>'); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): Char; platform; $[SysUtils.pas 
功能返回当前系统指定参数的字符值 
说明 GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ',' 
参考 function Windows.GetLocaleInfo 
例子 Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function ByteType(const S: string; Index: Integer): TMbcsByteType; $[SysUtils.pas 
功能返回字符串S位置Index上的字符在MBCS中类型 
说明多字节字符系统:Multi-Byte Character System (MBCS) 
参考 var SysUtils.SysLocale 
例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; $[SysUtils.pas 
功能返回指针字符串Str位置Index上的字符在MBCS中类型 
说明 Index从0开始 
参考 var SysUtils.SysLocale 
例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), SpinEdit2.Value)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; $[SysUtils.pas 
功能返回字符串S中有多少个多字节字符 
说明 MaxLen指定处理字符个数 
参考 function SysUtils.ByteToCharIndex 
例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function CharToByteLen(const S: string; MaxLen: Integer): Integer; $[SysUtils.pas 
功能返回字符串S中有多少个字符 
说明 MaxLen指定处理多字节字符个数 
参考 var SysUtils.SysLocale 
例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function ByteToCharIndex(const S: string; Index: Integer): Integer; $[SysUtils.pas 
功能返回字符位置对应的多字节字符位置 
说明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2 
参考 function SysUtils.NextCharIndex 
例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function CharToByteIndex(const S: string; Index: Integer): Integer; $[SysUtils.pas 
功能返回多字节字符位置对应的字符起始位置 
说明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3 
参考 function System.Length 
例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas 
功能返回第一个字符的宽度 
说明参数为空则返回0 
参考 function Windows.CharNext 
例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas 
功能返回字符指针Str的下一个字符指针 
说明 StrNextChar('1234') = '234'; 
参考 function Windows.CharNext 
例子 Edit2.Text := StrNextChar(PChar(Edit1.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function CharLength(const S: String; Index: Integer): Integer; $[SysUtils.pas 
功能返回字符串中指定位置的字符宽度 
说明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2 
参考 function System.Assert;function SysUtils.StrCharLength 
例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function NextCharIndex(const S: String; Index: Integer): Integer; $[SysUtils.pas 
功能返回下一个字符的位置 
说明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5 
参考 function System.Assert;function SysUtils.StrCharLength 
例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function IsPathDelimiter(const S: string; Index: Integer): Boolean; $[SysUtils.pas 
功能返回字符串S中指定位置Index上是否是一个路径分隔符 
说明 IsPathDelimiter('C:/Windows', 3) = True 
参考 const SysUtils.PathDelim;function SysUtils.ByteType 
例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function IsDelimiter(const Delimiters, S: string; Index: Integer): Boolean; $[SysUtils.pas 
功能返回字符串S中指定位置Index上是否是一个分隔符Delimiters 
说明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True 
参考 function SysUtils.ByteType 
例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, SpinEdit1.Value); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function IncludeTrailingPathDelimiter(const S: string): string; $[SysUtils.pas 
功能返回包括最后路径分隔符 
说明最后一个字符是路径分隔符则不变;否则加上一个路径分隔符返回 
参考 function SysUtils.IsPathDelimiter;function System.Length 
例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function IncludeTrailingBackslash(const S: string): string; platform; $[SysUtils.pas 
功能返回包括最后斜线 
说明 Result := IncludeTrailingPathDelimiter(S); 
参考 function SysUtils.IncludeTrailingPathDelimiter 
例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function ExcludeTrailingPathDelimiter(const S: string): string; $[SysUtils.pas 
功能返回排除最后路径分隔符 
说明最后一个字符不是路径分隔符则不变;否则减去最后的路径分隔符返回 
参考 function SysUtils.IsPathDelimiter;function System.Length;function System.SetLength 
例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function ExcludeTrailingBackslash(const S: string): string; platform; $[SysUtils.pas 
功能返回排除最后斜线 
说明 Result := ExcludeTrailingPathDelimiter(S) 
参考 function SysUtils.ExcludeTrailingPathDelimiter 
例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function LastDelimiter(const Delimiters, S: string): Integer; $[SysUtils.pas 
功能返回最后一个分隔符的位置 
说明 LastDelimiter('.', 'kingron.myetang.com') = 16 
参考 function SysUtils.StrScan;function SysUtils.ByteType 
例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiCompareFileName(const S1, S2: string): Integer; $[SysUtils.pas 
功能返回比较两个文件名 
说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写 
参考 function SysUtils.AnsiCompareStr 
例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas 
功能返回两个文件名是否相等 
说明区分大小写 
参考 function SysUtils.AnsiCompareFileName 
例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas 
功能返回小写文件名 
说明在非多字节字符系统上相当于AnsiLowerCase 
参考 function SysUtils.AnsiLowerCase 
例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas 
功能返回大写文件名 
说明在非多字节字符系统上相当于AnsiUpperCase 
参考 function SysUtils.AnsiUpperCase 
例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas 
功能返回子串Substr在字符中第一次出现的位置 
说明不存在则返回0 
参考 SysUtils.AnsiStrPos 
例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas 
功能返回指针子串Substr在指针字符中第一次出现的指针位置 
说明不存在则返回nil 
参考 function SysUtils.StrByteType 
例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas 
功能返回在指针字符串Str搜索字符Chr最后一个出现的地址 
说明支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com' 
参考 function SysUtils.AnsiStrScan 
例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.'); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas 
功能返回在指针字符串Str搜索字符Chr第一个出现的地址 
说明支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com' 
参考 function SysUtils.StrScan 
例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.');</null></null></null></null></null></null></null></null></null></null></null></null></null>
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; $[SysUtils.pas 
功能返回替换后的字符串 
说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写 
参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function System.Copy 
例子 
///////Begin StringReplace 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
Memo1.Lines.Values['[]'] := 
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []); 
Memo1.Lines.Values[''] := 
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, ); 
Memo1.Lines.Values[''] := 
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, ); 
Memo1.Lines.Values[''] := 
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, ); 
end; 
///////End StringReplace 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function StringToGUID(const S: string): TGUID; $[SysUtils.pas 
功能返回字符串S转换成全局标识 
说明如果字符串非法将触发异常 
参考 fuction Windows.Succeeded 
例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); 
━━━━━━━━━━━━━━━━━━━━━ 
函数 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas 
功能返回全局标识GUID转换成字符串 
说明 <null> 
参考 fuction Windows.Succeeded 
例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text)); 
━━━━━━━━━━━━━━━━━━━━━</null>
<h1 id="日期与时间函数-date-and-time-routinesunit-sysutils-1">================================================= 
日期与时间函数 (Date and Time Routines) 
Unit: SysUtils</h1>
<h1 id="date-传回今天日期function-date-tdatetimedatetimetostr-将时间格式转为字串function-datetimetostrdatetime-tdatetimestringdatetimetostring-将时间格式转为字串procedure-datetimetostringvar-result-stringconst-format-stringdatetime-tdatetimedatetostr-将日期格式转为字串function-datetostrdate-tdatetime-stringdayofweek-传回今天星期几function-dayofweekdate-tdatetime-integerdecodedate-分解所指定的日期为年月日procedure-decodedatedate-tdatetimevar-year-month-dayworddecodetime-分解所指定的日期为时分秒procedure-decodetimetime-tdatetimevar-hour-min-secmsec-wordencodedate-传回将年月日所组合的日期格式function-encodedateyear-month-day-wordtdatetimeencodetime-传回将时分秒所组合的时间格式function-encodetimehour-min-sec-msecword-tdatetimeformatdatetime-以指定的格式传回日期时间function-formatdatetimeconst-format-stringdatetime-tdatetimestringnow-传回现在的日期时间function-now-tdatetimestrtodate-将字串转为日期格式function-strtodateconst-sstring-tdatetimestrtodatetime-将字串转为日期时间格式function-strtodatetimeconst-s-string-tdatetimestrtotime-将字串转为时间格式function-strtotimeconst-sstring-tdatetimetime-传回现在时间function-time-tdatetimetimetostr-将时格式转为字串function-timetostrtimetdatetime-string-1">Date 传回今天日期。function Date: TDateTime; 
DateTimeToStr 将时间格式转为字串。function DateTimeToStr(DateTime: TDateTime):String; 
DateTimeToString 将时间格式转为字串。 
procedure DateTimeToString(var Result: string;const Format: string;DateTime: TDateTime); 
DateToStr 将日期格式转为字串。function DateToStr(Date: TDateTime): String; 
DayOfWeek 传回今天星期几。function DayOfWeek(Date: TDateTime): Integer; 
DecodeDate 分解所指定的日期为年、月、日。 
procedure DecodeDate(Date: TDateTime;var Year, Month, Day:Word); 
DecodeTime 分解所指定的日期为时、分、秒。 
procedure DecodeTime(Time: TDateTime;var Hour, Min, Sec,MSec: Word); 
EncodeDate 传回将年、月、日所组合的日期格式。 
function EncodeDate(Year, Month, Day: Word):TDateTime; 
EncodeTime 传回将时、分、秒所组合的时间格式。 
function EncodeTime(Hour, Min, Sec, MSec:Word): TDateTime; 
FormatDateTime 以指定的格式传回日期时间。 
function FormatDateTime(const Format: string;DateTime: TDateTime):String; 
Now 传回现在的日期时间。function Now: TDateTime; 
StrToDate 将字串转为日期格式。function StrToDate(const S:string): TDateTime; 
StrToDateTime 将字串转为日期时间格式function StrToDateTime(const S: string): TDateTime; 
StrToTime 将字串转为时间格式。function StrToTime(const S:string): TDateTime; 
Time 传回现在时间。function Time: TDateTime; 
TimeToStr 将时格式转为字串。function TimeToStr(Time:TDateTime): String;</h1>
<h1 id="档案管理函数unit-sysutils-1">档案管理函数 
Unit: SysUtils</h1>
ChangeFileExt 变更档案的延伸档名。 
function ChangeFileExt(const FileName,Extension: string):string; 
DateTimeToFileDate 将Delphi 的日期格式转换为DOS的日期格式。 
functionDateTimeToFileDate(DateTime:TDateTime): Longint; 
DeleteFile 删除一个档案。 
function DeleteFile(const FileName: string):Boolean; 
DiskFree 传回磁碟的可用空间。function DiskFree(Drive: Byte): Longint; 
DiskSize 传回指定磁碟的容量大小。function DiskSize(Drive: Byte): Longint; 
ExpandFileName 传回一个完整的路径及档名字串。 
function expandFileName(const FileName: string):string; 
ExtractFileExt 传回档案的延伸档名。function ExtractFileExt(const FileName string):string; 
ExtractFileName 传回档案的档名。function ExtractFileName(const FileName: string):string; 
ExtractFilePath 传回档案的路径。function ExtractFilePath(const FileName: string):string; 
FileAge 传回档案的年纪function FileAge(const FileName: string):Longint; 
FileCreate 以指定档名建立一个档案。function FileCreate(const FileName: string):Integer; 
FileClose 关闭指定的档案。procedureFileClose(Handle: Integer); 
FileDateToDateTime 将DOS 的日期格式转为Delphi 的日期格式。 
function FileDateToDateTime(FileDate: Longint):TDateTime; 
FileExists 判别档案是否存在。function FileExists(const FileName: string):Boolean; 
FileGetAttr 传回档案属性。function FileGetAttr(const FileName: string):Integer; 
FileGetDate 传回档案的日期及时间。function FileGetDate(Handle: Integer): Longint; 
FileRead 从指定的档案读入资料。 
function FileRead(Handle:Integer; var Buffer;Count:Longint):Longint; 
FileSearch 在目录列中搜寻指定的档案。function FileSearch(constName, DirList: string):string; 
FileSeek 改变档案游标的位置。function FileSeek(Handle: Integer;Offset: Longint;Origin: Integer):Longint; 
FileSetAttr 设定档案属性。function FileSetAttr(const FileName: string;Attr:Integer): Integer; 
FileSetDate 设定档案的日期及时间。procedure FileSetDate(Handle: Integer; Age:Longint); 
FileOpen 开启档案。function FileOpen(const FileName: string; Mode:Word): Integer; 
FileWrite 写资料到档案。function FileWrite(Handle:Integer;const Buffer; Count:Longint): Longint; 
FindClose 终止找寻第一个／下一个的动作。procedure FindClose(var SearchRec: TSearchRec); 
FindFirst 寻找第一个符合的档案并设定其属性。 
function FindFirst(const Path: string;Attr: Word; var F:TSearchRec): Integer; 
FindNext 传回下一个符合的档案。function FindNext(var F:TSearchRec): Integer; 
RenameFile 变更档名。function RenameFile(const OldName,NewName: string):Boolean;
怎样在 CASE 语句中使用字符串 
/////////////////////////////////////////
首先建立 CaseString 函数，用于获取某字符串在一个字符串数组中的顺序：
function CaseString (const s: string; 
const x: array of string): Integer; 
var i: Integer; 
begin 
Result:= -1; // Default return parameter 
for i:= Low (x) to High (x) do begin 
if s = x then begin Result:= i; Exit; end; 
end; 
end;
Low() 提供第一个数组成员（通常是0），High() 则返回最后一个。因为 CaseString 返回的是待查字符串在字符串数组中的位置，因此，它可以被直接用到 CASE 语句中：
search:= 'delphi3000'; 
case CaseString (search, ['delphi3000', 
'delphipages', 
'Torry's']) of 
0: s:= 'Excellent!'; 
1: s:= 'Good source'; 
2: s:= 'Not bad!'; 
end;
copy(str,pos,num) 从str字符串的pos处开始,截取num个字符的串返回.假设str为'abcdef',copy(str,3,2)='cd',copy(str,4,10)='def' 
concat(str1,str2{,strn}) 把各自变量连接起来,返回连接后的字符串(长度不能超过255)
length(str) 返回str的字符个数,即其长度.
pos(obj,target) 在target字符串中找出第一个出现obj的第一个字符位置,如果找不到,返回0.
AnsiStrLastChar('你好')结果是“好”。如果有半个汉字出现，返回这半个汉字。二者字符串长度分别为2和1。
CompareStr - 区分大小写 
CompareText - 不区分大小写
//////////////////////////////////////////////////////// 
{判断字符是否是数字} 
function IsDigit(ch: char): boolean; 
begin 
Result := ch in ['0'..'9']; 
end; 
{判断字符是否是大写字符} 
function IsUpper(ch: char): boolean; 
begin 
Result := ch in ['A'..'Z']; 
end;
{判断字符是否是小写字符} 
function IsLower(ch: char): boolean; 
begin 
Result := ch in ['a'..'z']; 
end;
{转换为大写字符} 
function ToUpper(ch: char): char; 
begin 
Result := chr(ord(ch) and $DF); 
end;
{转换为小写字符} 
function ToLower(ch: char): char; 
begin 
Result := chr(ord(ch) or $20); 
end;
{ Capitalizes first letter of every word in s } 
function Proper(const s: string): string; 
var 
i: Integer; 
CapitalizeNextLetter: Boolean; 
begin 
Result := LowerCase(s); 
CapitalizeNextLetter := True; 
for i := 1 to Length(Result) do 
begin 
if CapitalizeNextLetter and IsLower(Result) then 
Result := ToUpper(Result); 
CapitalizeNextLetter := Result = ' '; 
end; 
end; 
//////////////////////////////////////////////////////////// 
{返回两个子字符串之间字符的个数} 
Function p2pcount( s, ss1, ss2 : string ): integer; 
var i, j, slen : integer; 
begin 
i := pos( ss1, s ); 
j := pos( ss2, s ); 
slen := Length(ss2); 
if j >= i then Result := j - i + slen else Result := 0; 
end;
{更快速的字符查询,快40%} 
function ScanStr(ToScan: PChar; Sign: Char):PChar; 
begin 
Result:= nil; 
if ToScan <> nil then 
while (ToScan^ <> #0) do begin 
if ToScan^ = Sign then begin 
Result:= ToScan; 
break; 
end; 
inc(ToScan); 
end; 
end; 
///////////////////////////// 
替换字符串中子串的函数，他可以从字符串中找出指定子串，并替换为另一子串。 
function replacing(S,source,target:string):string; 
var site,StrLen:integer; 
begin 
{source在S中出现的位置} 
site:=pos(source,s);
{source的长度} 
StrLen:=length(source);
{删除source字符串} 
delete(s,site,StrLen);
{插入target字符串到S中} 
insert(target,s,site);
{返回新串} 
replacing:=s; 
end; 
/////////////////////// 
另两个替换字符串中子串的函数 
function repl_substr( sub1, sub2, s: string ): string; 
var i: integer; 
begin 
repeat 
i := pos( sub1, s ) ; 
if i > 0 then begin 
delete( s, i, Length(sub1)); 
insert( sub2, s, i ); 
end; 
until i < 1; 
Result := s; 
end;
function ReplaceText(const S,ReplacePiece,ReplaceWith: String):String;
Var Position: Integer; 
TempStr: String; 
begin 
Position := Pos(ReplacePiece,S); 
if Position > 0 then Begin 
TempStr := S; 
Delete(TempStr,1,Position-1+Length(ReplacePiece)); 
Result := 
Copy(S,1,Position-1)+ReplaceWith+ReplaceText(TempStr,ReplacePiece,ReplaceWith)
End else Result := S; 
end; 
//////////////////////// 
替换全部子字符串的函数
function ReplaceSub(str, sub1, sub2: String): String; 
var 
aPos: Integer; 
rslt: String;
begin 
aPos := Pos(sub1, str); 
rslt := ''; 
while (aPos <> 0) do begin 
rslt := rslt + Copy(str, 1, aPos - 1) + sub2; 
Delete(str, 1, aPos + Length(sub1)); 
aPos := Pos(sub1, str); 
end; 
Result := rslt + str; 
end;
///////////////////////// 
在字符串左右填充指定数量的指定字符 
function UT_PadString(inString :string; maxLength :integer; padChar :char; 
left :boolean) :string; 
begin 
result := inString; 
while (Length(result) < maxLength) do 
if (left) then 
result := padChar + result 
else 
result := result + padChar; 
end; 
///////////////////////////////////// 
提取字符串中指定子字符串前的字符串 
Function Before ( Src:string ; Var S:string ) : string ; 
Var 
F : Word ;
begin 
F := POS (Src,S) ; 
if F=0 then 
Before := S 
else 
Before := COPY(S,1,F-1) ; 
end ; 
////////////////////////////////// 
提取字符串中指定子字符串后的字符串 
Function After ( Src:string ; Var S:string ) : string ; 
Var 
F : Word ;
begin 
F := POS (Src,S) ; 
if F=0 then 
After := '' 
else 
After := COPY(S,F+length(src),length(s)) ; 
end ; 
//////////////////////////////////// 
判断字符串是否可以转换为整数 
function IsIntStr(const S: string): boolean; 
begin 
Result:=StrToIntDef(S,0)=StrToIntDef(S,1); 
end; 
////////////////////////////////////// 
从字符串中删除指定字符串 
procedure RemoveInvalid(what, where: string): string;
var 
tstr: string;
begin 
tstr:=where; 
while pos(what, tstr)>0 do 
tstr:=copy(tstr,1,pos(what,tstr)-1) + 
copy(tstr,pos(what,tstr)+length(tstr),length(tstr)); 
Result:=tstr; 
end; 
用法: 
NewStr:=RemoveInvalid('<invalid>','This <invalid> is my string and I wan to 
remove the word <invalid>'); 
/////////////////////////////////////////// 
根据某个字符分割字符串的函数 
procedure SeparateTerms(s : string;Separator : char;Terms : TStringList); 
{ This browses a string and divide it into terms whenever the given 
separator is found. The separators will be removed } 
var 
hs : string; 
p : integer;</invalid></invalid></invalid>
<h1 id="begintermsclear--first-remove-all-remaining-termsif-lengths0-then--nothin-to-separateexitpposseparatorswhile-p0-dobeginhscopys1p-1--copy-termtermsaddhs--add-to-listdeletes1p--remove-term-and-separatorpposseparators--search-next-separatorendif-lengths0-thentermsadds--add-remaining-termend-1">begin 
Terms.Clear; // First remove all remaining terms 
if Length(s)=0 then // Nothin' to separate 
Exit; 
p:=Pos(Separator,s); 
while P<>0 do 
begin 
hs:=Copy(s,1,p-1); // Copy term 
Terms.Add(hs); // Add to list 
Delete(s,1,p); // Remove term and separator 
p:=Pos(Separator,s); // Search next separator 
end; 
if Length(s)>0 then 
Terms.Add(s); // Add remaining term 
end;</h1>
<h1 id="-用-法-1">= 用法</h1>
var 
Terms : TStringList; 
i : integer;
const 
TestStr = '1st term;2nd term;3rd term';
begin 
Terms:=TStringList.Create; 
SeparateTerms(TestStr,';',Terms); 
for i:=0 to terms.Count-1 do 
ShowMessage(Terms.Strings); 
Terms.Free; 
end; 
///////////////////////////// 
根据一组字符分割字符串的函数 
type 
Charset = set of Char; 
var 
f : Text; 
s : String;
procedure WriteStringSplitted(var s: String; Separators: Charset); 
var 
a,e : Integer; {anfang und ende des w鰎tchens} 
begin 
a := 1; 
for e := 1 to Length(s) do 
if s in Separators then begin 
WriteLn(Copy(s, a, e-a)); 
a := e + 1; 
end; 
WriteLn(Copy(s, a, e-a+1)); 
end;
begin 
Assign(f, 'c:/dingsbums/text.txt'); 
Reset(f); 
while not EOF(f) do begin 
ReadLn(f,s); 
WriteStringSplitted(s, [':', ',']); 
end; 
Close(f); 
end. 
//////////////////////////////////////////////////
{=} 
{ 函数 : RESULTSTRING = HexToBin(HEXSTRING) 
{ 目的 : 把十六进制字符串转换为二进制字符串 
{ 
{=} 
{ 函数 : RESULTINTEGER = HexCharToInt(HEXCHAR) 
{ 目的 : 转换一个十六进制字符为整数 
{=} 
{ 函数 : RESULTSTRING = HexCharToBin(HEXCHAR) 
{ 目的 : 转换一个十六进制字符为二进制字符串 
{=} 
{ 函数 : RESULTINTEGER = Pow(BASE,POWER) 
{ 目的 : 指数函数 
{=} 
{ 函数 : RESULTINTEGER = BinStrToInt(BINSTRING) 
{ 目的 : 把二进制字符串转换为整数 
{=} 
{ 函数 : RESULTSTRING = DecodeSMS7Bit (PDUSTRING) 
{ 目的 : 解码一个7-bit SMS (GSM 03.38) 为ASCII码 
{=} 
{ 函数 : RESULTSTRING = ReverseStr (SOURCESTRING) 
{ 目的 : 反转一个字符串 
{=}
unit BinHexTools; 
interface
function HexToBin(HexNr : string): string; 
function HexCharToInt(HexToken : char):Integer; 
function HexCharToBin(HexToken : char): string; 
function pow(base, power: integer): integer; 
function BinStrToInt(BinStr : string) : integer; 
function DecodeSMS7Bit(PDU : string):string; 
function ReverseStr(SourceStr : string) : string;
implementation
uses sysutils, dialogs;
function HexCharToInt(HexToken : char):Integer; 
begin 
{if HexToken>#97 then HexToken:=Chr(Ord(HexToken)-32);
Result:=0;
if (HexToken>#47) and (HexToken<#58) then { chars 0....9 } 
Result:=Ord(HexToken)-48 
else if (HexToken>#64) and (HexToken<#71) then { chars A....F } 
Result:=Ord(HexToken)-65 + 10; 
end;
function HexCharToBin(HexToken : char): string; 
var DivLeft : integer; 
begin 
DivLeft:=HexCharToInt(HexToken); { first HEX->BIN } 
Result:=''; 
{ Use reverse dividing } 
repeat { Trick; divide by 2 } 
if odd(DivLeft) then { result = odd ? then bit = 1 } 
Result:='1'+Result { result = even ? then bit = 0 } 
else 
Result:='0'+Result;
DivLeft:=DivLeft div 2; { keep dividing till 0 left and length = 4 } 
until (DivLeft=0) and (length(Result)=4); { 1 token = nibble = 4 bits } 
end;
function HexToBin(HexNr : string): string; 
{ only stringsize is limit of binnr } 
var Counter : integer; 
begin 
Result:='';
for Counter:=1 to length(HexNr) do 
Result:=Result+HexCharToBin(HexNr); 
end;
function pow(base, power: integer): integer; 
var counter : integer; 
begin 
Result:=1;
for counter:=1 to power do 
Result:=Result*base; 
end;
function BinStrToInt(BinStr : string) : integer; 
var counter : integer; 
begin 
if length(BinStr)>16 then 
raise ERangeError.Create(#13+BinStr+#13+ 
'is not within the valid range of a 16 bit binary.'+#13);
Result:=0;
for counter:=1 to length(BinStr) do 
if BinStr='1' then 
Result:=Result+pow(2,length(BinStr)-counter); 
end;
function DecodeSMS7Bit(PDU : string):string; 
var OctetStr : string; 
OctetBin : string; 
Charbin : string; 
PrevOctet: string; 
Counter : integer; 
Counter2 : integer; 
begin 
PrevOctet:=''; 
Result:='';
for Counter:=1 to length(PDU) do 
begin 
if length(PrevOctet)>=7 then { if 7 Bit overflow on previous } 
begin 
if BinStrToInt(PrevOctet)<>0 then 
Result:=Result+Chr(BinStrToInt(PrevOctet)) 
else Result:=Result+' ';
PrevOctet:=''; 
end;
if Odd(Counter) then { only take two nibbles at a time } 
begin 
OctetStr:=Copy(PDU,Counter,2); 
OctetBin:=HexToBin(OctetStr);
Charbin:=''; 
for Counter2:=1 to length(PrevOctet) do 
Charbin:=Charbin+PrevOctet;
for Counter2:=1 to 7-length(PrevOctet) do 
Charbin:=OctetBin+Charbin;
if BinStrToInt(Charbin)<>0 then Result:=Result+Chr(BinStrToInt(CharBin)) 
else Result:=Result+' ';
PrevOctet:=Copy(OctetBin,1,length(PrevOctet)+1); 
end; 
end; 
end;
function ReverseStr(SourceStr : string) : string; 
var Counter : integer; 
begin 
Result:='';
for Counter:=1 to length(SourceStr) do 
Result:=SourceStr+Result; 
end;
end. 
在Delphi中没有前导0输出的函数，如C语言中printf("%08d",10);就会输"000000010"，但是在实际应用中经常会用到此种函数，如财务等数据的输出。如何实现？以下的代码实现了这种功能，
function qd0str(const count,num:integer):String; 
Var 
s1,s2:String; 
begin 
s1:=IntToStr(Num); 
s2:='00000000000000000000'; 
if (Length(s1)>=count) then 
s2:='' 
else if(count>20) then 
SetLength(S2,20-Length(s1)) 
else 
SetLength(S2,count-Length(s1));
Result:=S2+S1; 
end;
函数的参数count为输出字符串的总长度，在函数中定义为最大20。Num为需要转换成字符串的数据。
function IntToLZStr(value : integer;digits : byte) : string; 
var 
Res : string;
begin 
Res:=IntToStr(value); 
while Length(Res)<digits do 
Insert('0',res,1); 
IntToLZStr:=Res; 
end; 
来源：https://www.cnblogs.com/GreatPlanHero/p/17553173.html

頁: [1]

琼殿技术论坛's Archiver

delphi常用函数大全