Delphi函数大全.doc
《Delphi函数大全.doc》由会员分享,可在线阅读,更多相关《Delphi函数大全.doc(53页珍藏版)》请在三一文库上搜索。
1、Delphi函数大全首部 function Languages: TLanguages; $SysUtils.pas功能 返回系统语言对象说明 通过此函数可以得到系统的语言环境参考 type SysUtils.TLanguages例子 /Begin Languagesprocedure TForm1.Button1Click(Sender: TObject);var I: Integer;begin Memo1.Clear; for I := 0 to Languages.Count - 1 do Memo1.Lines.Add(Languages.NameI);end;/End Langua
2、ges 首部 function AllocMem(Size: Cardinal): Pointer; $SysUtils.pas功能 返回一个指定大小Size的内存块说明 配合用FreeMem释放资源参考 function System.GetMem例子 /Begin AllocMemprocedure TForm1.Button1Click(Sender: TObject);var I: PInteger;begin I := AllocMem(SizeOf(Integer); I := 100; Edit1.Text := IntToStr(I); FreeMem(I, SizeOf(In
3、teger);end;/End AllocMem 首部 procedure AddExitProc(Proc: TProcedure); $SysUtils.pas功能 添加一个退出处理的过程说明 建议用finalization部分取代参考 例子 /Begin AddExitProcuses ShellApi;procedure ExitProc;begin ShellExecute(0, Open, Calc.exe, nil, nil, SW_SHOW);end;procedure TForm1.Button1Click(Sender: TObject);begin AddExitProc
4、(ExitProc);end;/End AddExitProc 首部 function NewStr(const S: string): PString; deprecated; $SysUtils.pas功能 返回一个新的字符串指针地址说明 字符串S为空时返回NullStr参考 procedure System.New例子 /Begin NewStr,DisposeStrprocedure TForm1.Button1Click(Sender: TObject);var P: PString;begin P := NewStr(Edit1.Text); Edit2.Text := P; Di
5、sposeStr(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.N
6、ewStr;function SysUtils.DisposeStr例子 /Begin AssignStrprocedure 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功能 在字符串De
7、st后追加字符串S说明 相当于Dest := Dest + S;Delphi6已经不建议使用参考 例子 /Begin AppendStrprocedure 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的大写形式说明 非小写字符不处理参
8、考 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功能 返回比较两个
9、字符说明 当S1S2返回值0;当S1S2返回值0;当S1=S2返回值=0;区分大小写参考 例子 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参考 例
10、子 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功能 返回两个字符串是否相等说明 不区分大小写参考 例子 Ch
11、eckBox1.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(con
12、st S: string): string; $SysUtils.pas功能 返回字符串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返
13、回值S2返回值0;当S1S2返回值S2返回值0;当S1S2返回值S2返回值0;当S1S2返回值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例
14、子 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);首部 fun
15、ction 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; $Sy
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Delphi 函数 大全
链接地址:https://www.31doc.com/p-3257985.html