delphi常用函数大全（转）

Posted 2020-07-20

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字符串变量

 

 

delphi字符串函数大全

 

函数 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 = [soDown]): 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;

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
例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;]
━━━━━━━━━━━━━━━━━━━━━
函数 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"[email protected]‘;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‘, [Value])
参考 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, Value])
说明 参数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[0] := ‘True‘;
FalseBoolStrs[0] := ‘False‘;
TrueBoolStrs[1] := ‘Yes‘;
FalseBoolStrs[1] := ‘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[I]) 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[0..255] 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[0..255] 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[0..255] 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[0..255] 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[0..255] 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[0..255] 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), ‘*‘);
━━━━━━━━━━━━━━━━━━━━━
函数 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

━━━━━━━━━━━━━━━━━━━━━
函数 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‘, [12]); //‘x=12‘ //最普通
Format(‘x=%3d‘, [12]); //‘x= 12‘ //指定宽度
Format(‘x=%f‘, [12.0]); //‘x=12.00‘ //浮点数
Format(‘x=%.3f‘, [12.0]); //‘x=12.000‘ //指定小数
Format(‘x=%.*f‘, [5, 12.0]); //‘x=12.00000‘ //动态配置
Format(‘x=%.5d‘, [12]); //‘x=00012‘ //前面补充0
Format(‘x=%.5x‘, [12]); //‘x=0000C‘ //十六进制
Format(‘x=%1:d%0:d‘, [12, 13]); //‘x=1312‘ //使用索引
Format(‘x=%p‘, [nil]); //‘x=00000000‘ //指针
Format(‘x=%1.1e‘, [12.0]); //‘x=1.2E+001‘ //科学记数法
Format(‘x=%%‘, []); //‘x=%‘ //得到"%"
S := Format(‘%s%d‘, [S, I]); //S := S + StrToInt(I); //连接字符串
参考 proceduer SysUtils.FmtStr
例子 Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]);
━━━━━━━━━━━━━━━━━━━━━
函数 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 Ar