风景速写临摹图片:Delphi字符串函数大全

Delphi字符串函数大全 Delphi字符串函数大全 

abort 函数 引起放弃的意外处理 

abs 函数 绝对值函数 

addexitproc 函数 将一过程添加到运行时库的结束过程表中 

addr 函数 返回指定对象的地址 

adjustlinebreaks 函数 将给定字符串的行分隔符调整为cr/lf序列 

align 属性 使控件位于窗口某部分 

alignment 属性 控件标签的文字位置 

allocmem 函数 在堆栈上分配给定大小的块 

allowgrayed 属性 允许一个灰度选择 

ansicomparestr 函数 比较字符串（区分大小写） 

ansicomparetext 函数 比较字符串（不区分大小写） 

ansilowercase 函数 将字符转换为小写 

ansiuppercase 函数 将字符转换为大写 

append 函数 以附加的方式打开已有的文件 

arctan 函数 余切函数 

assignfile 函数 给文件变量赋一外部文件名 

assigned 函数 测试函数或过程变量是否为空 

autosize 属性 自动控制标签的大小 

backgrounddi2001.jpg 属性 背景色 

beginthread 函数 以适当的方式建立用于内存管理的线程 

bevelinner 属性 控件方框的内框方式 字串3 

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的日期格式 字串5 

datetimetostr 函数 将日期时间格式转换为字符串 

datetimetostring 函数 将日期时间格式转换为字符串 

datetostr 函数 将日期格式转换为字符串 

dayofweek 函数 返回星期的数值 

dec 函数 递减变量值 

decodedate 函数 将日期格式分解为年月日 

decodetime 函数 将时间格式分解为时、分、秒、毫秒 

delete 函数 从字符串中删除子串 

deletefile 命令 删除文件 

diskfree 函数 返回剩余磁盘空间的大小 

disksize 函数 返回指定磁盘的容量 

dispose 函数 释放动态变量所占的空间 

disposestr 函数 释放字符串在堆栈中的内存空间 

ditherbackgrounddi2001.jpg?使背景色的色彩加重或减少50% 

dragcursor 属性 当鼠标按下时光标的形状 

dragmode 属性 按动的作用方式 

dropdowncount 属性 容许的显示数据项的数目 

editmask 属性 编辑模式 

enabled 属性 是否使标签呈现打开状态 

encodedate 函数 将年月日合成为日期格式 

encodetime 函数 将时、分、秒、毫秒合成为时间格式 

字串2



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 函数 返回文件的属性 字串6 

filegetdate 函数 返回文件的dos日期时间标记 

fileopen 命令 用指定的存取模式打开指定的文件 

filepos 函数 返回文件的当前指针位置 

fileread 命令 从指定的文件读取 

filesearch 命令 在目录中搜索指定的文件 

fileseek 函数 改变文件的指针 

filesetattr 函数 设置文件属性 

filesetdate 函数 设置文件的dos日期时间标记 

filesize 函数 返回当前文件的大小 

filewrite 函数 对指定的文件做写操作 

fillchar 函数 用指定的值填充连续字节的数 

findclose 命令 终止findfirst/findnext序列 

findfirst 命令 对指定的文件名及属性搜索目录 

findnext 命令 返回与文件名及属性匹配的下一入口 

floattodecimal 函数 将浮点数转换为十进制数 

floattostrf 函数 将浮点数转换为字符串 

floattostr 函数 将浮点数转换为字符串 

floattotext 函数 将给定的浮点数转换为十进制数 

floattotextfmt 函数 将给定的浮点数转换为十进制数 

flush 函数 将缓冲区的内容刷新到输出的文本文件中 
字串7


fmtloadstr 函数 从程序的资源字符串表中装载字符串 

fmtstr 函数 格式化一系列的参数，其结果以参数result返回 

font 属性 设置字体 

format 函数 格式化一系列的参数并返回pascal字符串 

formatbuf 函数 格式化一系列的参数 

formatdatetime 函数 用指定的格式来格式化日期和时间 

formatfloat 函数 指定浮点数格式 

frac 函数 返回参数的小数部分 

freemem 函数 按给定大小释放动态变量所占的空间 

getdir 返回指定驱动器的当前目录 

getheapstatus 返回内存管理器的当前状态 

getmem 建立一指定大小的动态变量，并将指针指向该处 

getmemorymanager 返回内存管理器的入口点 

glyph 函数 按钮上的图象 

halt 停止程序的执行并返回到操作系统 

hi 返回参数的高地址位 

high 返回参数的上限值 

hint 属性 提示信息 

int 返回参数的整数部分 

include 添加元素到集合中 

insert 在字符串中插入子串 

inttohex 将整型数转换为十六进制数 
字串8 
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 测试参数是否为奇数 
字串2 
onactivate 事件 焦点移到窗体上时触发 

onclick 事件 单击窗体空白区域触发 

ondblclick 事件 双击窗体空白区域触发 

onclosequery 事件 使用者试图关闭窗体触发 

onclose 事件 窗体关闭后才触发 

oncreate 事件 窗体第一次创建时触发 

ondeactivate 事件 用户切换到另一应用程序触发 

ondragdrop 事件 鼠标拖放操作结束时触发 

ondragover 事件 有其他控件从他上面移过触发 

onmousedown 事件 按下鼠标键时触发 

onmouseup 事件 释放鼠标键时触发 

onmousemove 事件 移动鼠标时触发 

onhide 事件 隐藏窗体时触发 

onkeydown 事件 按下键盘某键时触发 

onkeypress 事件 按下键盘上的单个字符键时触发 

onkeyup 事件 释放键盘上的某键时触发 

onpaint 事件 窗体上有新部分暴露出来触发 

onresize 事件 重新调整窗体大小触发 

onshow 事件 在窗体实际显示之前瞬间触发 

ord 返回序数类的序数 

outlinestyle 属性 类型 

outofmemoryerror 引起outofmemory意外 
字串1



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 函数 打开已有的文件 字串4 

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分配的字符缓冲区的最大字符数 字串5 

strcat 函数 将一字符串附加到另一字符串尾并返回合并的字符串 

strcomp 函数 比较两个字符串 

strcopy 函数 将一个字符串复制到另一个字符串中 

strdispose 函数 释放堆栈上的字符串 

strecopy 函数 将一字符串复制到另一个字符串并返回结果字符串尾部的指针 

strend 函数 返回指向字符串尾部的指针 

stretch 属性 自动适应控件的大小 

strfmt 函数 格式化一系列的参数 

stricomp 函数 比较两个字符串（不区分大小写） 

stringtowidechar 函数 将ansi字符串转换为unicode字符串 

strlcat 函数 将一字符串中的字符附加到另一字符串尾并返回合并的字符串 

strlcomp 函数 以最大长度比较两个字符串 

strlcopy 函数 将一个字符串中的字符复制到另一个字符串中 

strlen 函数 返回字符串中的字符数 

strlfmt 函数 格式化一系列的参数，其结果中包含有指向目标缓冲区的指针 

strlicomp 函数 以最大长度比较两个字符串（不区分大小写） 

strlower 函数 将字符串中的字符转换为小写 

strmove 函数 将一个字符串中的字符复制到另一个字符串中 字串4 

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 属性 显示的文本 字串2 

texttofloat 函数 将字符串（以null结束的格式）转换为浮点数 

time 函数 返回当前的时间 

timetostr 函数 将时间格式转换为字符串 

trim 函数 从给定的字符串中删除前导和尾部的空格及控制字符 

trimleft 函数 从给定的字符串中删除首部的空格及控制字符 

trimright 函数 从给定的字符串中删除尾部的空格及控制字符 

trunc 函数 将实型值截取为整型值 

truncate 函数 截去当前文件位置后的内容 

unselectedcolor 属性 未选中颜色 

upcase 将字符转换为大写 

uppercase 将给定的字符串变为大写 

val 函数 将字符串转换为整型值 

vararraycreate 函数 以给定的界限和维数建立变体数组 

vararraydimcount 函数 返回给定变体的维数 

vararrayhighbound 函数 返回给定变体数组维数的上界 

vararraylock 函数 锁定给定的变体数组 

vararraylowbound 函数 返回给定变体数组维数的下界 

vararrayof 函数 返回指定变体的数组元素 

vararrayredim 函数 通过改变上限来调整变体的大小 
字串3 
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字符串变量 字串5 

widechartostring 函数 将unicode字符串转换为ansi字符串 

widechartostrvar 函数 将unicode字符串转换为ansi字符串变量    点击： 856 次，评论： 1 次 提交日期： 2007-9-27     评论： daluren 提交日期： 2007-9-27 13:47:14    
uses StrUtils; 【字符串函数大全】 
      首部 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, '是', '否') = '否'
      参考 
      例子 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
      功能 返回第一个搜索到的指针位置
      说明 这函数常用于文本中搜索字符串
      参考 
      例子 
      ///////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)可以找到相进的字符串;
      参考 
      例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function SoundexInt(const AText: string; ALength: TSoundexIntLength = 
      4): Integer; $[StrUtils.pas
      功能 返回探测整数
      说明 ALength的值越大解码准确率越高
      参考 
      例子 SpinEdit2.Value := SoundexInt(Edit1.Text, SpinEdit1.Value);
      ━━━━━━━━━━━━━━━━━━━━━ 
      首部 function DecodeSoundexInt(AValue: Integer): string; $[StrUtils.pas
      功能 返回探测整数的解码
      说明 DecodeSoundexInt(SoundexInt('hello')) 相当于 Soundex('hello')
      参考 
      例子 Edit2.Text := DecodeSoundexInt(SpinEdit2.Value);
      ━━━━━━━━━━━━━━━━━━━━━ 
      首部 function SoundexWord(const AText: string): Word; $[StrUtils.pas
      功能 返回探测文字数值
      说明 没有参数ALength已经固定为4
      参考 
      例子 SpinEdit2.Value := SoundexWord(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━ 
      首部 function DecodeSoundexWord(AValue: Word): string; $[StrUtils.pas
      功能 返回探测文字数值的解码
      说明 DecodeSoundexWord(SoundexWord('hello')) 相当于 Soundex('hello')
      参考 
      例子 Edit2.Text := DecodeSoundexWord(SpinEdit2.Value);
      ━━━━━━━━━━━━━━━━━━━━━ 
      首部 function SoundexSimilar(const AText, AOther: string; ALength: 
      TSoundexLength = 4): Boolean; $[StrUtils.pas
      功能 返回两个字符串的探测字符串是否相同
      说明 Result := Soundex(AText, ALength) = Soundex(AOther, ALength)
      参考 
      例子 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已经不建议使用
      参考 
      例子 
      ////////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      参考 
      例子 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
      参考 
      例子 CheckBox1.Checked := CompareMem(Self, Form1, 8);
      ━━━━━━━━━━━━━━━━━━━━━ 
      首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas
      功能 返回比较两个字符串
      说明 不区分大小写
      参考 
      例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text);
      ━━━━━━━━━━━━━━━━━━━━━ 
      首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas
      功能 返回两个字符串是否相等
      说明 不区分大小写
      参考 
      例子 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      参考 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      参考 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      参考 function System.CompareString
      例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text))
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas
      功能 返回比较两个指针字符串
      说明 当S1>S2返回值>0;当S1      参考 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      参考 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      参考 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      参考 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      参考 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
      例子 
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function IsValidIdent(const Ident: string): Boolean; $[SysUtils.pas
      功能 返回字符串Ident是否是正确的标识符
      说明 标识符::字母|下划线[字母|下划线|数字]...
      参考 
      例子 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
 
nbsp;  参考 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
      例子 ;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas
      功能 返回指针字符串的长度
      说明 当指针字符串Str为nil时将触发异常
      参考 
      例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas
      功能 返回指针字符串的结尾
      说明 当指针字符串Str为nil时将触发异常
      参考 
      例子 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应已经分配足够的空间非则将触发异常
      参考 
      例子
      ///////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中的结尾
      说明 可以连接指针字符串
      参考 
      例子
      ///////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应已经分配足够的空间非则将触发异常
      参考 
      例子
      ///////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粗频街刚胱址瓺est中
      说明 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的长度
      参考 
      例子
      ///////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      参考 
      例子 SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas
      功能 返回比较两个指针字符串
      说明 当S1>S2返回值>0;当S1      参考 
      例子 SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; 
      $[SysUtils.pas
      功能 返回比较两个指针字符串指定长度
      说明 当S1>S2返回值>0;当S1      参考 
      例子 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      参考 
      例子 SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), 
      SpinEdit2.Value)
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas
      功能 返回在指针字符串Str搜索字符Chr第一个出现的地址
      说明 没有找到则返回空指针
      参考 
      例子 Edit2.Text := StrScan(PChar(Edit1.Text), '*');
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas
      功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址
      说明 没有找到则返回空指针
      参考 
      例子 Edit2.Text := StrRScan(PChar(Edit1.Text), '*');
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas
      功能 返回指针字符串Str2在Str1中第一个出现的地址
      说明 没有找到则返回空指针;StrPos('12345', '3') = '345'
      参考 
      例子 Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text))