Delphi函数大全.docx
《Delphi函数大全.docx》由会员分享，可在线阅读，更多相关《Delphi函数大全.docx（52页珍藏版）》请在冰点文库上搜索。
Delphi函数大全
Delphi函数大全
首部 functionLanguages:
TLanguages;$[SysUtils.pas
功能 返回系统语言对象
说明 通过此函数可以得到系统的语言环境
参考 typeSysUtils.TLanguages
例子
///////BeginLanguages
procedureTForm1.Button1Click（Sender:
TObject）;
var
I:
Integer;
begin
Memo1.Clear;
forI:
=0toLanguages.Count-1do
Memo1.Lines.Add（Languages.Name[I]）;
end;
///////EndLanguages
━━━━━━━━━━━━━━━━━━━━━
首部 functionAllocMem（Size:
Cardinal）:
Pointer;$[SysUtils.pas
功能 返回一个指定大小Size的内存块
说明 配合用FreeMem释放资源
参考 functionSystem.GetMem
例子
///////BeginAllocMem
procedureTForm1.Button1Click（Sender:
TObject）;
var
I:
PInteger;
begin
I:
=AllocMem（SizeOf（Integer））;
I^:
=100;
Edit1.Text:
=IntToStr（I^）;
FreeMem（I,SizeOf（Integer））;
end;
///////EndAllocMem
━━━━━━━━━━━━━━━━━━━━━
首部 procedureAddExitProc（Proc:
TProcedure）;$[SysUtils.pas
功能 添加一个退出处理的过程
说明 建议用finalization部分取代
参考
例子
////////BeginAddExitProc
uses
ShellApi;
procedureExitProc;
begin
ShellExecute（0,'Open','Calc.exe',nil,nil,SW_SHOW）;
end;
procedureTForm1.Button1Click（Sender:
TObject）;
begin
AddExitProc（ExitProc）;
end;
////////EndAddExitProc
━━━━━━━━━━━━━━━━━━━━━
首部 functionNewStr（constS:
string）:
PString;deprecated;$[SysUtils.pas
功能 返回一个新的字符串指针地址
说明 字符串S为空时返回NullStr
参考 procedureSystem.New
例子
////////BeginNewStr,DisposeStr
procedureTForm1.Button1Click（Sender:
TObject）;
var
P:
PString;
begin
P:
=NewStr（Edit1.Text）;
Edit2.Text:
=P^;
DisposeStr（P）;
end;
////////EndNewStr,DisposeStr
━━━━━━━━━━━━━━━━━━━━━
首部 procedureDisposeStr（P:
PString）;deprecated;$[SysUtils.pas
功能 释放字符串指针P资源
说明 配合函数NewStr使用
参考 procedureSystem.Dispose
例子 <如上参见,如下参见>
━━━━━━━━━━━━━━━━━━━━━
首部 procedureAssignStr（varP:
PString;constS:
string）;deprecated;$[SysUtils.pas
功能 将字符串S更新给字符串指针P
说明 更新值时会释放以前字符串指针的资源
参考 functionSysUtils.NewStr;functionSysUtils.DisposeStr
例子
////////BeginAssignStr
procedureTForm1.Button1Click（Sender:
TObject）;
var
P:
PString;
begin
P:
=nil;
AssignStr（P,Edit1.Text）;
Edit2.Text:
=P^;
DisposeStr（P）;
end;
////////EndAssignStr
━━━━━━━━━━━━━━━━━━━━━
首部 procedureAppendStr（varDest:
string;constS:
string）;deprecated;$[SysUtils.pas
功能 在字符串Dest后追加字符串S
说明 相当于Dest:
=Dest+S;Delphi6已经不建议使用
参考
例子
////////BeginAppendStr
procedureTForm1.Button1Click（Sender:
TObject）;
var
S:
string;
begin
S:
=Edit2.Text;
AppendStr（S,Edit1.Text）;
Edit2.Text:
=S;
end;
////////EndAppendStr
━━━━━━━━━━━━━━━━━━━━━
首部 functionUpperCase（constS:
string）:
string;$[SysUtils.pas
功能 返回字符串S的大写形式
说明 非小写字符不处理
参考 procedureSystem.SetLength
例子 Edit2.Text:
=UpperCase（Edit1.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionLowerCase（constS:
string）:
string;$[SysUtils.pas
功能 返回字符串S的小写形式
说明 非大写字符不处理
参考 procedureSystem.SetLength
例子 Edit2.Text:
=LowerCase（Edit1.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionCompareStr（constS1,S2:
string）:
Integer;$[SysUtils.pas
功能 返回比较两个字符
说明 当S1>S2返回值>0;当S1参考
例子 SpinEdit1.Value:
=CompareStr（Edit1.Text,Edit2.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionCompareMem（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,Form1,8）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionCompareText（constS1,S2:
string）:
Integer;$[SysUtils.pas
功能 返回比较两个字符串
说明 不区分大小写
参考
例子 SpinEdit1.Value:
=CompareText（Edit1.Text,Edit2.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionSameText（constS1,S2:
string）:
Boolean;$[SysUtils.pas
功能 返回两个字符串是否相等
说明 不区分大小写
参考
例子 CheckBox1.Checked:
=SameText（Edit1.Text,Edit2.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiUpperCase（constS:
string）:
string;$[SysUtils.pas
功能 返回字符串S的大写形式
说明 ANSI（AmericanNationalStandardsInstitute）美国国家标准协会;非小写的字符不变
参考 functionWindows.CharUpperBuff
例子 Edit2.Text:
=AnsiUpperCase（Edit1.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiLowerCase（constS:
string）:
string;$[SysUtils.pas
功能 返回字符串S的小写形式
说明 非大写字符不处理
参考 functionWindows.CharLowerBuff
例子 Edit2.Text:
=AnsiLowerCase（Edit1.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiCompareStr（constS1,S2:
string）:
Integer;$[SysUtils.pas
功能 反回比较两个字符串
说明 当S1>S2返回值>0;当S1参考 functionWindows.CompareString
例子 SpinEdit1.Value:
=AnsiCompareStr（Edit1.Text,Edit2.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiSameStr（constS1,S2:
string）:
Boolean;$[SysUtils.pas
功能 返回两个字符串是否相等
说明 区分大小写
参考 functionSysUtils.AnsiCompareStr
例子 CheckBox1.Checked:
=AnsiSameStr（Edit1.Text,Edit2.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiCompareText（constS1,S2:
string）:
Integer;$[SysUtils.pas
功能 反回比较两个字符串
说明 当S1>S2返回值>0;当S1参考 functionWindows.CompareString
例子 SpinEdit1.Value:
=AnsiCompareText（Edit1.Text,Edit2.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiSameText（constS1,S2:
string）:
Boolean;$[SysUtils.pas
功能 返回两个字符串是否相等
说明 不区分大小写
参考 functionSysUtils.AnsiCompareText
例子 CheckBox1.Checked:
=AnsiSameText（Edit1.Text,Edit2.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiStrComp（S1,S2:
PChar）:
Integer;$[SysUtils.pas
功能 返回比较两个指针字符串
说明 当S1>S2返回值>0;当S1参考 functionSystem.CompareString
例子 SpinEdit1.Value:
=AnsiStrComp（PChar（Edit1.Text）,PChar（Edit2.Text））
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiStrIComp（S1,S2:
PChar）:
Integer;$[SysUtils.pas
功能 返回比较两个指针字符串
说明 当S1>S2返回值>0;当S1参考 functionWindows.CompareString
例子 SpinEdit1.Value:
=AnsiStrIComp（PChar（Edit1.Text）,PChar（Edit2.Text））
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiStrLComp（S1,S2:
PChar;MaxLen:
Cardinal）:
Integer;$[SysUtils.pas
功能 返回比较两个指针字符串指定长度
说明 当S1>S2返回值>0;当S1参考 functionWindows.CompareString
例子 SpinEdit1.Value:
=AnsiStrLComp（PChar（Edit1.Text）,PChar（Edit2.Text）,SpinEdit2.Value）
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiStrLIComp（S1,S2:
PChar;MaxLen:
Cardinal）:
Integer;$[SysUtils.pas
功能 返回比较两个指针字符串指定长度
说明 当S1>S2返回值>0;当S1参考 functionWindows.CompareString
例子 SpinEdit1.Value:
=AnsiStrLIComp（PChar（Edit1.Text）,PChar（Edit2.Text）,SpinEdit2.Value）
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiStrLower（Str:
PChar）:
PChar;$[SysUtils.pas
功能 返回指针字符串小写形式
说明 非大写字符不处理
参考 functionWindows.CharLower
例子 Edit2.Text:
=AnsiStrLower（PChar（Edit1.Text））;
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiStrUpper（Str:
PChar）:
PChar;$[SysUtils.pas
功能 返回指针字符串大写形式
说明 非小写字符不处理
参考 functionWindows.CharUpper
例子 Edit2.Text:
=AnsiStrUpper（PChar（Edit1.Text））;
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiLastChar（constS:
string）:
PChar;$[SysUtils.pas
功能 返回字符串S的最后一个指针字符
说明 当字符串S为空串则返回空指针
参考 functionSysUtils.ByteType
例子 Edit2.Text:
=AnsiLastChar（Edit1.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiStrLastChar（P:
PChar）:
PChar;$[SysUtils.pas
功能 返回指针字符串P的最后一个指针字符
说明 当字符串P为空空指针则返回空指针
参考 functionSysUtils.ByteType
例子 Edit2.Text:
=AnsiLastChar（PChar（Edit1.Text））;
━━━━━━━━━━━━━━━━━━━━━
首部 functionWideUpperCase（constS:
WideString）:
WideString;$[SysUtils.pas
功能 返回双字节字符串的大写形式
说明 WideChar双字节字符
参考 functionWindows.CharUpperBuffW
例子 Edit2.Text:
=WideUpperCase（Edit1.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionWideLowerCase（constS:
WideString）:
WideString;$[SysUtils.pas
功能 返回双字节字符串的小写形式
说明 我怎么就测试不出来呢
参考 functionWindows.CharLowerBuffW
例子 Edit2.Text:
=WideLowerCase（Edit1.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionWideCompareStr（constS1,S2:
WideString）:
Integer;$[SysUtils.pas
功能 返回比较两个双字节字符串
说明 当S1>S2返回值>0;当S1参考 functionWindows.CompareStringW
例子 SpinEdit1.Value:
=WideCompareStr（Edit1.Text,Edit2.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionWideSameStr（constS1,S2:
WideString）:
Boolean;$[SysUtils.pas
功能 返回两个双字节字符串是否相同
说明 区分大小写
参考 functionSysUtils.WideCompareStr
例子 CheckBox1.Checked:
=WideSameStr（Edit1.Text,Edit2.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionWideCompareText（constS1,S2:
WideString）:
Integer;$[SysUtils.pas
功能 返回比较两个双字节字符串
说明 当S1>S2返回值>0;当S1参考 functionWindows.CompareStringW
例子 SpinEdit1.Value:
=WideCompareText（Edit1.Text,Edit2.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionWideSameText（constS1,S2:
WideString）:
Boolean;$[SysUtils.pas
功能 返回两个双字节字符串是否相同
说明 不区分大小写
参考 functionSysUtils.WideCompareText
例子 CheckBox1.Checked:
=WideSameText（Edit1.Text,Edit2.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionTrim（constS:
string）:
string;overload;$[SysUtils.pas
首部 functionTrim（constS:
WideString）:
WideString;overload;$[SysUtils.pas
功能 返回除去字符串S左右不可见字符
说明 小于#32的字符看作不可见字符
参考 functionSystem.Copy
例子 Edit2.Text:
=Trim（Edit1.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionTrimLeft（constS:
string）:
string;overload;$[SysUtils.pas
首部 functionTrimLeft（constS:
WideString）:
WideString;overload;$[SysUtils.pas
功能 返回除去字符串S左边不可见字符
说明 小于#32的字符看作不可见字符
参考 functionSystem.Copy
例子 Edit2.Text:
=TrimLeft（Edit1.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionTrimRight（constS:
string）:
string;overload;$[SysUtils.pas
首部 functionTrimRight（constS:
WideString）:
WideString;overload;$[SysUtils.pas
功能 返回除去字符串S右边不可见字符
说明 小于#32的字符看作不可见字符
参考 functionSystem.Copy
例子 Edit2.Text:
=TrimRight（Edit1.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionQuotedStr（constS:
string）:
string;$[SysUtils.pas
功能 返回字符串S在pascal中的表现形式
说明 单引号中的一个单引号将转成两个
参考 procedureSystem.Insert
例子 Edit2.Text:
=QuotedStr（Edit1.Text）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiQuotedStr（constS:
string;Quote:
Char）:
string;$[SysUtils.pas
功能 返回字符串S以字符Quote为引号的表现形式
说明 AnsiQuotedStr（'hello"world','@'）='@hello"world@';AnsiQuotedStr（'hello"world','"'）='"hello""world"'
参考 functionSysUtils.AnsiStrScan
例子 Edit2.Text:
=AnsiQuotedStr（Edit1.Text,'"'）;
━━━━━━━━━━━━━━━━━━━━━
首部 functionAnsiExtractQuotedStr（varSrc:
PChar;Quote:
Char）:
string;$[SysUtils.p
升级会员 