delphi常用函数大全

1、.：.； delphi常用函数大全转Abort函数引起放弃的不测处置Abs函数绝对值函数AddExitProc函数将一过程添加到运转时库的终了过程表中Addr函数前往指定对象的地址AdjustLineBreaks函数将给定字符串的行分隔符调整为CR/LF序列Align属性使控件位于窗口某部分Alignment属性控件标签的文字位置AllocMem函数在堆栈上分配给定大小的块AllowGrayed属性允许一个灰度选择AnsiCompareStr函数比较字符串区分大小写AnsiCompareText函数比较字符串不区分大小写AnsiLowerCase函数将字符转换为小写AnsiUpperCase函

2、数将字符转换为大写Append函数以附加的方式翻开已有的文件ArcTan函数余切函数AssignFile函数给文件变量赋一外部文件名Assigned函数测试函数或过程变量能否为空AutoSize属性自动控制标签的大小BackgroundColor属性背风光BeginThread函数以适当的方式建立用于内存管理的线程BevelInner属性控件方框的内框方式BevelOuter属性控件方框的外框方式BevelWidth属性控件方框的外框宽度BlockRead函数读一个或多个记录到变量中BlockWrite函数从变量中写一个或多个记录BorderStyle属性边境类型BorderWidth属性边境

3、宽度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函数前

4、往当前的日期DateTimeToFileDate函数将DELPHI的日期格式转换为DOS的日期格式DateTimeToStr函数将日期时间格式转换为字符串DateTimeToString函数将日期时间格式转换为字符串DateToStr函数将日期格式转换为字符串DayOfWeek函数前往星期的数值Dec函数递减变量值DecodeDate函数将日期格式分解为年月日DecodeTime函数将时间格式分解为时、分、秒、毫秒Delete函数从字符串中删除子串DeleteFile命令删除文件DiskFree函数前往剩余磁盘空间的大小DiskSize函数前往指定磁盘的容量Dispose函数释放动态变量所占的

5、空间DisposeStr函数释放字符串在堆栈中的内存空间DitherBackground属性使背风光的颜色加重或减少50%DragCursor属性当鼠标按下光阴标的外形DragMode属性按动的作用方式DropDownCount属性允许的显示数据项的数目EditMask属性编辑方式Enabled属性能否使标签呈现翻开形状EncodeDate函数将年月日合成为日期格式EncodeTime函数将时、分、秒、毫秒合成为时间格式EndMargin属性末尾边缘Eof函数对有类型或无类型文件测试能否到文件尾Eoln函数前往文本文件的行终了形状Erase命令删除外部文件ExceptAddr函数前往引起当前不

6、测的地址Exclude函数从集合中删除一些元素ExceptObject函数前往当前不测的索引Exit命令立刻从当前的语句块中退出Exp函数指数函数ExpandFileName函数前往包含绝对途径的字符串ExtendedSelect属性能否允许存在选择方式，True时，MultiSelect才有意义ExtractFileDir函数前往驱动器和途径ExtractFileExt函数前往文件的后缀ExtractFileName函数前往文件名ExtractFilePath函数前往指定文件的途径FileAge函数前往文件已存在的时间FileClose命令封锁指定的文件FileCreate命令用指定的文件名

7、建立新文件FileDateToDateTime函数将DOS的日期格式转换为DELPHI的日期格式FileExists函数检查文件能否存在FileGatAttr函数前往文件的属性FileGetDate函数前往文件的DOS日期时间标志FileOpen命令用指定的存取方式翻开指定的文件FilePos函数前往文件的当前指针位置FileRead命令从指定的文件读取FileSearch命令在目录中搜索指定的文件FileSeek函数改动文件的指针FileSetAttr函数设置文件属性FileSetDate函数设置文件的DOS日期时间标志FileSize函数前往当前文件的大小FileWrite函数对指定的文件

8、做写操作FillChar函数用指定的值填充延续字节的数FindClose命令终止FindFirst/FindNext序列FindFirst命令对指定的文件名及属性搜索目录FindNext命令前往与文件名及属性匹配的下一入口FloatToDecimal函数将浮点数转换为十进制数FloatToStrF函数将浮点数转换为字符串FloatToStr函数将浮点数转换为字符串FloatToText函数将给定的浮点数转换为十进制数FloatToTextFmt函数将给定的浮点数转换为十进制数Flush函数将缓冲区的内容刷新到输出的文本文件中FmtLoadStr函数从程序的资源字符串表中装载字符串FmtStr函

9、数格式化一系列的参数，其结果以参数Result前往Font属性设置字体Format函数格式化一系列的参数并前往Pascal字符串FormatBuf函数格式化一系列的参数FormatDateTime函数用指定的格式来格式化日期和时间FormatFloat函数指定浮点数格式Frac函数前往参数的小数部分FreeMem函数按给定大小释放动态变量所占的空间GetDir前往指定驱动器的当前目录GetHeapStatus前往内存管理器的当前形状GetMem建立一指定大小的动态变量，并将指针指向该处GetMemoryManager前往内存管理器的入口点Glyph函数按钮上的图象Halt停顿程序的执行并前往到

10、操作系统Hi前往参数的高地址位High前往参数的上限值Hint属性提示信息Int前往参数的整数部分Include添加元素到集合中Insert在字符串中插入子串IntToHex将整型数转换为十六进制数IntToStr将整型数转换为字符串IOResult前往最新的I/O操作完成形状IsValidIdent测试字符串能否为有效的标识符Items属性默许显示的节点Kind属性摆放款式LargeChange属性最大改动值Layout属性图象规划Length函数前往字符串的动态长度Lines属性缺省显示内容Ln函数自然对数函数Lo函数前往参数的低地址位LoadStr函数从运用程序的可执行文件中装载字符资源

11、LowerCase函数将给定的字符串变为小写Low函数前往参数的下限值Max属性最大值MaxLength属性最大长度Min属性最小值MkDir命令建立一子目录Move函数从源到目的复制字节MultiSelect属性允许同时选择几个数据项Name属性控件的名字New函数建立新的动态变量并设置一指针变量指向他NewStr函数在堆栈上分配新的字符串Now函数前往当前的日期和时间Odd测试参数能否为奇数OnActivate事件焦点移到窗体上时触发onClick事件单击窗体空白区域触发OnDblClick事件双击窗体空白区域触发OnCloseQuery事件运用者试图封锁窗体触发OnClose事件窗体封锁

12、后才触发OnCreate事件窗体第一次创建时触发OnDeactivate事件用户切换到另一运用程序触发OnDragDrop事件鼠标拖放操作终了时触发OnDragOver事件有其他控件从他上面移过触发onMouseDown事件按下鼠标键时触发onMouseUp事件释放鼠标键时触发onMouseMove事件挪动鼠标时触发OnHide事件隐藏窗体时触发onKeyDown事件按下键盘某键时触发onKeyPress事件按下键盘上的单个字符键时触发onKeyUp事件释放键盘上的某键时触发OnPaint事件窗体上有新部分暴显露来触发OnResize事件重新调整窗体大小触发OnShow事件在窗体实践显示之前瞬

13、间触发Ord前往序数类的序数OutlineStyle属性类型OutOfMemoryError引起OutOfMemory不测PageIndex属性页索引Pages属性页ParamCount函数前往在命令行上传送给程序的参数数量ParamStr函数前往指定的命令行参数Pen属性画刷设置Pi函数前往圆周率PiPicture属性显示图象PictureClosed属性设置Closed位图PictureLeaf属性设置Leaf位图PictureMinus属性设置Minus位图PictureOpen属性设置Open位图PicturePlus属性设置Plus位图Pos函数在字符串中搜索子串Pred函数前往先前

14、的参数Random函数前往一随机函数Randomize函数用一随机数初始化内置的随机数生成器Read函数对有格式的文件，读一文件组件到变量中；对文本文件，读一个或多个值到一个或多个变量中Readln函数执行Read过程，然后跳到文件下一行ReadOnly属性只读属性ReAllocMem函数分配一动态变量Rename函数重命名外部文件RenameFile函数对文件重命名Reset函数翻开已有的文件Rewrite函数建立并翻开一新的文件RmDir函数删除空的子目录Round函数将实数值舍入为整型值RunError函数停顿程序的执行ScrollBars属性滚动条形状Seek函数将文件的当前指针挪动到

15、指定的组件上SeekEof函数前往文件的文件终了形状SeekEoln函数前往文件的行终了形状SelectedColor属性选中颜色SetMemoryManager函数设置内存管理器的入口点SetTextBuf函数给文本文件指定I/O缓冲区Shape属性显示的外形ShowException函数显示不测音讯与地址Sin函数正弦函数SizeOf函数前往参数所占的字节数SmallChange属性最小改动值Sorted属性能否允许排序Sqr函数平方函数Sqrt函数平方根函数StartMargin属性开场边缘State属性控件当前形状Str函数将数值转换为字符串StrAlloc函数给以NULL终了的字符串

16、分配最大长度-1的缓冲区StrBufSize函数前往存储在由StrAlloc分配的字符缓冲区的最大字符数StrCat函数将一字符串附加到另一字符串尾并前往合并的字符串StrComp函数比较两个字符串StrCopy函数将一个字符串复制到另一个字符串中StrDispose函数释放堆栈上的字符串StrECopy函数将一字符串复制到另一个字符串并前往结果字符串尾部的指针StrEnd函数前往指向字符串尾部的指针Stretch属性自动顺应控件的大小StrFmt函数格式化一系列的参数StrIComp函数比较两个字符串不区分大小写StringToWideChar函数将ANSI字符串转换为UNICODE字符串S

17、trLCat函数将一字符串中的字符附加到另一字符串尾并前往合并的字符串StrLComp函数以最大长度比较两个字符串StrLCopy函数将一个字符串中的字符复制到另一个字符串中StrLen函数前往字符串中的字符数StrLFmt函数格式化一系列的参数，其结果中包含有指向目的缓冲区的指针StrLIComp函数以最大长度比较两个字符串不区分大小写StrLower函数将字符串中的字符转换为小写StrMove函数将一个字符串中的字符复制到另一个字符串中StrNew函数在堆栈上分配一个字符串StrPas函数将以NULL终了的字符串转换为PASCAL类的字符串StrPCopy函数将PASCAL类的字符串复制为

18、以NULL终了的字符串StrPLCopy函数从PASCAL类的最大长度字符串复制为以NULL终了的字符串StrPos函数前往一个字符串在另一个字符串中初次出现指针StrRScan函数前往字符串中最后出现字符的指针StrScan函数前往字符串中出现首字符的指针StrToDate函数将字符串转换为日期格式StrToDateTime函数将字符串转换为日期/时间格式StrToFloat函数将给定的字符串转换为浮点数StrToInt函数将字符串转换为整型StrToIntDef函数将字符串转换为整型或默许值StrToTime函数将字符串转换为时间格式StrUpper函数将字符串中的字符转换为大写Style

19、属性类型选择Suce函数前往后继的参数Swap函数交换参数的高低地址位Tabs属性标志每一项的内容TabIndex属性标志索引Text属性显示的文本TextToFloat函数将字符串以NULL终了的格式转换为浮点数Time函数前往当前的时间TimeToStr函数将时间格式转换为字符串Trim函数从给定的字符串中删除前导和尾部的空格及控制字符TrimLeft函数从给定的字符串中删除首部的空格及控制字符TrimRight函数从给定的字符串中删除尾部的空格及控制字符Trunc函数将实型值截取为整型值Truncate函数截去当前文件位置后的内容UnSelectedColor属性未选中颜色UpCase将

20、字符转换为大写UpperCase将给定的字符串变为大写Val函数将字符串转换为整型值VarArrayCreate函数以给定的界限和维数建立变体数组VarArrayDimCount函数前往给定变体的维数VarArrayHighBound函数前往给定变体数组维数的上界VarArrayLock函数锁定给定的变体数组VarArrayLowBound函数前往给定变体数组维数的下界VarArrayOf函数前往指定变体的数组元素VarArrayRedim函数经过改动上限来调整变体的大小VarArrayUnlock函数解锁指定的变体数组VarAsType函数将变体转换为指定的类型VarCase函数将变体转换为

21、指定的类型并保管他VarClear函数去除指定的变体VarCopy函数将指定的变体复制为指定的变体VarFormDateTime函数前往包含日期时间的变体VarIsArray函数测试变体能否为数组VarIsEmpty函数测试变体能否为UNASSIGNEDVarIsNull函数测试变体能否为NULLVarToDateTime函数将给定的变体转换为日期时间VarType函数将变体转换为指定的类型并保管他Visible属性控件的可见性WantReturns属性为True时，按回车键产生一个回车符；为False时，按下Ctrl+Enter才产生回车符Write命令对有格式的文件，写一变量到文件组件中；

22、对文本文件，写一个或多个值到文件中Writeln命令执行WRITE过程，然后输出一行终了标志WideCharLenToString函数将ANSI字符串转换为UNICODE字符串WideCharLenToStrWar函数将UNICODE字符串转换为ANSI字符串变量WideCharToString函数将UNICODE字符串转换为ANSI字符串WideCharToStrVar函数将UNICODE字符串转换为ANSI字符串变量 delphi字符串函数大全 函数 function AnsiResemblesText(const AText, AOther: string): Boolean; $Str

23、Utils.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功能

24、前往字符串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 Windowspar

25、eString例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text); 函数 function AnsiEndsText(const ASubText, AText: string): Boolean; $StrUtils.pas功能 前往字符串AText能否以子串ASubText结尾阐明 不区分大小写参考 function WindowspareString例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text); 函数 function AnsiReplac

26、eText(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; c

27、onst 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功能 前

28、往字符串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例子 CheckBo

29、x1.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 ASubT

30、ext, 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

31、的结果阐明 区分大小写参考 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 StrUti

32、ls.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, a

33、1, 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功能 前往字符串

34、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) = a12b

35、cd参考 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 := Rand

36、omFrom(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: st

37、ring; 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个字符阐明 Righ

38、tStr(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, SpinE

39、dit1.Value, SpinEdit2.Value); 函数 function SearchBuf(Buf: PChar; BufLen: Integer; SelStart, SelLength: Integer; SearchString: String; Options: TStringSearchOptions = soDown): PChar; $StrUtils.pas功能 前往第一个搜索到的指针位置阐明 这函数常用于文本中搜索字符串参考 例子 /Begin SearchBuffunction SearchEdit(EditControl: TCustomEdit; const

40、 SearchString: String;SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean;varBuffer, P: PChar;Size: Word;beginResult := False;if (Length(SearchString) = 0) then Exit;Size := EditControl.GetTextLen;if (Size = 0) then Exit;Buffer := StrAlloc(Size + 1);tryEditControl.GetTextBuf(Bu

41、ffer, Size + 1);P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength,SearchString, SearchOptions);if P nil then beginEditControl.SelStart := P - Buffer;EditControl.SelLength := Length(SearchString);Result := True;end;finallyStrDispose(Buffer);end;end;procedure TForm1.Button1Click

42、(Sender: TObject);varSearchOptions: TStringSearchOptions;beginSearchOptions := ;if CheckBox1.Checked thenInclude(SearchOptions, soDown);if CheckBox2.Checked thenInclude(SearchOptions, soMatchCase);if CheckBox3.Checked thenInclude(SearchOptions, soWholeWord);SearchEdit(Memo1, Edit1.Text, SearchOption

43、s);Memo1.SetFocus;end;/End SearchBuf 函数 function Soundex(const AText: string; ALength: TSoundexLength = 4): string; $StrUtils.pas功能 前往探测字符串阐明 根据探测法(Soundex)可以找到相进的字符串;/genealogy/coding.html参考 例子 Edit2.Text := Soundex(Edit1.Text, SpinEdit1.Value);函数 function SoundexInt(const AText: string; ALength: T

44、SoundexIntLength = 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 := Dec

45、odeSoundexInt(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) 相当

46、于 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 := SoundexSim

47、ilar(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

48、.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 = SoundexPro

49、c;函数 function NewStr(const S: string): PString; deprecated; $SysUtils.pas功能 前往一个新的字符串指针地址阐明 字符串S为空时前往NullStr参考 procedure System.New例子 /Begin NewStr,DisposeStrprocedure TForm1.Button1Click(Sender: TObject);varP: PString;beginP := NewStr(Edit1.Text);Edit2.Text := P;DisposeStr(P);end;/End NewStr,Dispos

50、eStr 函数 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

51、例子 /Begin AssignStrprocedure TForm1.Button1Click(Sender: TObject);varP: PString;beginP := 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

52、曾经不建议运用参考 例子 /Begin AppendStrprocedure TForm1.Button1Click(Sender: TObject);varS: string;beginS := 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 :

53、= 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功能 前往比较两个字符阐明 当S1S2前往值0;当S1S2前往值0;当S1=S2前往值=0;区分大小写参

54、考 例子 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, For

55、m1, 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, Edi

56、t2.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功能 前往字符

57、串S的小写方式阐明 非大写字符不处置参考 function Windows.CharLowerBuff例子 Edit2.Text := AnsiLowerCase(Edit1.Text);函数 function AnsiCompareStr(const S1, S2: string): Integer; $SysUtils.pas功能 反回比较两个字符串阐明 当S1S2前往值0;当S1S2前往值S2前往值0;当S1S2前往值S2前往值0;当S1S2前往值S2前往值0;当S1S2前往值S2前往值0;当S1S2前往值S2前往值0;当S1S2前往值S2前往值0;当S1S2前往值S2前往值0;当S1S

58、2前往值0;当S1=S2前往值=0;不区分大小写参考 function WindowspareStringW例子 SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text);函数 function WideSameText(const S1, S2: WideString): Boolean; $SysUtils.pas功能 前往两个双字节字符串能否一样阐明 不区分大小写参考 function SysUtils.WideCompareText例子 CheckBox1.Checked := WideSameText(Edit1.Text,

59、 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; overlo

60、ad; $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: WideSt