Delphi函数大全.doc

资源ID：3257985 资源大小：292.54KB 全文页数：53页
资源格式： DOC 下载积分：8元

快捷下载

会员登录下载

微信登录下载

三方登录下载：

微信扫一扫登录

下载资源需要8元

邮箱/手机：
温馨提示：	用户名和密码都是您填写的邮箱或者手机号，方便查询和重复下载（系统自动生成）
支付方式：
验证码：	换一换

加入VIP免费专享

账号：
密码：
验证码：	换一换
当日自动登录忘记密码？

友情提示

1、下载资料失败解决办法

2、PDF文件下载后，可能会被浏览器默认打开，此种情况可以点击浏览器菜单，保存网页到桌面，就可以正常下载了。

3、本站不支持迅雷下载，请使用电脑自带的IE浏览器，或者360浏览器、谷歌浏览器下载即可。

4、本站资源下载后的文档和图纸-无水印,预览文档经过压缩，下载后原文更清晰。

5、试题试卷类文档，如果标题没有明确说明有答案则都视为没有答案，请知晓。

网站客服

侵权投诉

Delphi函数大全.doc

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 Languages 首部 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(Integer);end;/End AllocMem 首部 procedure AddExitProc(Proc: TProcedure); $SysUtils.pas功能添加一个退出处理的过程说明建议用finalization部分取代参考 <NULL>例子 /Begin AddExitProcuses ShellApi;procedure ExitProc;begin ShellExecute(0, 'Open', 'Calc.exe', nil, nil, SW_SHOW);end;procedure TForm1.Button1Click(Sender: TObject);begin AddExitProc(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; 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 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功能在字符串Dest后追加字符串S说明相当于Dest := Dest + S;Delphi6已经不建议使用参考 <NULL>例子 /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的大写形式说明非小写字符不处理参考 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<S2返回值<0;当S1=S2返回值=0;区分大小写参考 <NULL>例子 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参考 <NULL>例子 CheckBox1.Checked := CompareMem(Self, Form1, 8); 首部 function CompareText(const S1, S2: string): Integer; $SysUtils.pas功能返回比较两个字符串说明不区分大小写参考 <NULL>例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text); 首部 function SameText(const S1, S2: string): Boolean; $SysUtils.pas功能返回两个字符串是否相等说明不区分大小写参考 <NULL>例子 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<S2返回值<0;当S1=S2返回值=0;区分大小写参考 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<S2返回值<0;当S1=S2返回值=0;不区分大小写参考 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<S2返回值<0;当S1=S2返回值=0;区分大小写参考 function System.CompareString例子 SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text)首部 function AnsiStrIComp(S1, S2: PChar): Integer; $SysUtils.pas功能返回比较两个指针字符串说明当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略)参考 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<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度)参考 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<S2返回值<0;当S1=S2返回值=0;不区分大小写参考 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<S2返回值<0;当S1=S2返回值=0;区分大小写参考 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<S2返回值<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例子 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 AnsiExtractQuotedStrprocedure 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例子 <NULL>首部 function IsValidIdent(const Ident: string): Boolean; $SysUtils.pas功能返回字符串Ident是否是正确的标识符说明标识符:字母|下划线字母|下划线|数字.参考 <NULL>例子 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参考 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转换成六十四位整数说明字符串非六十四位整数表达时将引起异常参考 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 TryStrToInt64procedure 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 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

注意事项

本文（Delphi函数大全.doc）为本站会员（来看看）主动上传，三一文库仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对上载内容本身不做任何修改或编辑。若此文所含内容侵犯了您的版权或隐私，请立即通知三一文库（点击联系客服），我们立即给予删除！

温馨提示：如果因为网速或其他原因下载失败请重新下载，重复下载不扣分。