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

16、sUtils.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

17、 System.Insert例子 Edit2.Text := QuotedStr(Edit1.Text);首部 function AnsiQuotedStr(const S: string; Quote: Char): string; $SysUtils.pas功能 返回字符串S以字符Quote为引号的表现形式说明 AnsiQuotedStr(helloworld, )=helloworld;AnsiQuotedStr(helloworld, )=helloworld参考 function SysUtils.AnsiStrScan例子 Edit2.Text := AnsiQuotedStr(E

18、dit1.Text, );首部 function AnsiExtractQuotedStr(var Src: PChar; Quote: Char): string; $SysUtils.pas功能 返回以字符Quote为引号的表现形式原形说明 表现形式非法时Src不变否则为空参考 function SysUtils.AnsiStrScan例子/Begin AnsiExtractQuotedStrprocedure TForm1.Button1Click(Sender: TObject);var P: PChar;begin P := PChar(Edit1.Text); Edit2.Text

19、 := 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 Adjus

20、tLineBreaks(const S: string; Style: TTextLineBreakStyle = $IFDEF LINUX tlbsLF $ENDIF $IFDEF MSWINDOWS tlbsCRLF $ENDIF): string; $SysUtils.pas功能 返回将给定字符串的行分隔符调整为CR/LF序列说明 AdjustLineBreaks(1#132#13)=1#13#102#13#10;AdjustLineBreaks(1#102#10)=1#13#102#13#10参考 function SysUtils.StrNextChar例子 首部 function

21、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功能 返回整数Val

22、ue转换成字符串说明 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(%

23、.*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);首部 f

24、unction 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是否成功说明 字

25、符串非整数表达时返回False并且Value将输出为0参考 procedure System.Val例子/Begin TryStrToIntprocedure 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转换

26、成六十四位整数说明 字符串非六十四位整数表达时将引起异常参考 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,

27、0);首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean; $SysUtils.pas功能 返回字符串S转换成六十四位整数Value是否成功说明 字符串非六十四位整数表达时返回False并且Value将输出为0参考 procedure System.Val例子/Begin TryStrToInt64procedure TForm1.Button1Click(Sender: TObject);var I: Int64;begin CheckBox1.Checked := TryStrToInt64(Edit1

28、.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

29、; $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 如下修正参考 fun

30、ction SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs例子/Begin TryStrToBoolprocedure TForm1.Button1Click(Sender: TObject);var B: Boolean;begin SetLength(TrueBoolStrs, 2); SetLength(FalseBoolStrs, 2); TrueBoolStrs0 := True; FalseBoolStrs0 := False; TrueBoolStrs1 := Yes; FalseBoolStrs1 := No; CheckBox1.Checked := TryStrToBool(Edit1.Text, B); CheckBox2.Checked := B;end;/End TryStrToBool附加/Begin TryStrToBoolfunction TryStrToBool(cons