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函数从程序的资源字符串表中装载字符串FmtS

9、tr函数格式化一系列的参数，其结果以参数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字符串转换为UNICOD

17、E字符串StrLCat函数将一字符串中的字符附加到另一字符串尾并返回合并的字符串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函数将字符串中的字符转换为

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

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

21、e函数将变体转换为指定的类型并保存他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): Bool

23、ean; $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; $StrUti

24、ls.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 W

25、indows.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); 函数 fu

26、nction 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

27、 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; co

28、nst 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):

29、 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例子

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

31、 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:

32、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): Inte

33、ger; $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个复本说明

34、 当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 := ReverseStrin

35、g(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

36、, 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');

37、函数 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string; overload; $StrUtils.pas功能 返回指定的逻辑字符串说明 IfThen(True, '是', '否') = '是'IfThen(False, '是', '否') = '否'参考 <NULL>例子 Edit3.Text := IfThen(CheckBox1.Checked, Edi

38、t1.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;

39、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功能 返回字符串AT

40、ext从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功能 返回第一个搜

41、索到的指针位置说明 这函数常用于文本中搜索字符串参考 <NULL>例子 /Begin SearchBuffunction SearchEdit(EditControl: TCustomEdit; const SearchString: String;SearchOptions: TStringSearchOptions; FindFirst: Boolean = False): Boolean;varBuffer, P: PChar;Size: Word;beginResult := False;if (Length(SearchString) = 0) then Exit;Siz

42、e := EditControl.GetTextLen;if (Size = 0) then Exit;Buffer := StrAlloc(Size + 1);tryEditControl.GetTextBuf(Buffer, Size + 1);P := SearchBuf(Buffer, Size, EditControl.SelStart, EditControl.SelLength,SearchString, SearchOptions);if P <> nil then beginEditControl.SelStart := P - Buffer;EditContro

43、l.SelLength := Length(SearchString);Result := True;end;finallyStrDispose(Buffer);end;end;procedure TForm1.Button1Click(Sender: TObject);varSearchOptions: TStringSearchOptions;beginSearchOptions := ;if CheckBox1.Checked thenInclude(SearchOptions, soDown);if CheckBox2.Checked thenInclude(SearchOptions

44、, soMatchCase);if CheckBox3.Checked thenInclude(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.

45、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);

46、 函数 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功能 返回探测文字数值

47、说明 没有参数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.

48、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); 函数 fu

49、nction 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, Spi

50、nEdit1.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; depr

51、ecated; $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,DisposeStr 函数 procedure DisposeStr(P: PString); deprecated

52、; $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 AssignStrprocedure TForm

53、1.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已经不建议使用参考 <NULL>例子 /Begin Ap

54、pendStrprocedure 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 := UpperCase(Edit1.Text); 函数 function LowerCase(const S: string): string; $SysUtils.pas功能 返回字符串S的小写形式说明 非大写字符不处理参考 procedure System.SetLength例子 Edit2.T