delphi常用.docVIP

Addr Addr(x):Pointer 该函数返回一个变量或子程序的地址。（即指针，与@运算符等价）。 var x:Pointer; begin x:=Addr(x);{现指向它自己} end; AnsiCompareFileName AnsiCompareFileName(Const S1,S2 : String):Integer 基于当前地区的特征比较两个文件名。 条件 返回 s1s2 0 s1s2 0 s1=s2 =0 AnsiCompareStr AnsiCompareStr(Const S1,S2 : string):Integer; 比较两个字符串的大小（区分大小写）。条件 返回 s1s2 0 s1s2 0 s1=s2 =0 var s1,s2:string; begin s1:=’Delphi’; s2:=’delphi’; if ansicomparstr(s1,s2)0 thenshowmessage(‘大小写被认为不同！’) AnsiCompareText AnsiCompareText(Const S1,S2 : string):Integer; 比较两个字符串的大小，（不分大小写的比较）。例如 条件 返回? s1s2 0 ?s1s2 0 ?s1=s2 =0 const s1; string=’Delphi’; s2:string=(‘delphi’); var x:integer; begin x:=strcomp(s1,s2); if x0 then showmessage(‘Delphi’’delphi’) else if x0 then showmessage(‘Delphi’’delphi’) else showmessage(‘Delphi’’delphi’) e AnsiLastChar AnsiLastChar(Const S : String ):Pchar; 返回指向一个字符串最后一个字符的指针。 Var X:string; Y:=Pchar; Begin X:=’abcde’; Y:=AnsiLastChar(x,’c’) End; AnsiLowerCase AnsiLowerCase(Const S : string):String; 将所有的字符（参数）转换为小写的字母。 var x:string; begin x:=’DELPhi IS GooD’; showmessage(AnsilowerCase(x)); end; AnsiLowerCaseFileName AnsiLowerCaseFileName(Const S : string):String; 将一个文件名转换为小写。 var x:string; begin x:=’DELPhi IS GooD’; showmessage(AnsilowerCase(x)); end; iLowerCase(Const S : string):String函数 AnsiPos AnsiPos(Const Substr,S : string):Integer; 判断在一个字符串中子字符串的存在与否，如存在，位置是多少。 var; s:=string; x:integer; begin s:=Application; x:=AnsiPos(s,c);{x=6} end; AnsiStrComp AnsiStrComp(S1,S2:Pchar):Integer; 比较空结束的字符串的大小，（要分大小写）? 条件 返回 ?s1s2 0?s1s2 0?s1=s2 =0 var a:integer; b:integer; begin a:=ansistrcomp(‘ABC’,’Abc’)//a0 b:=ansistrcomp(‘ABC’,’ABD’)//b0 end AnsiStrIComp AnsiStrIComp(S1,S2:Pchar):Integer; 比较空结束的字符串的大小，（不分大小写）条件 返回? s1s2 0 ?s1s2 0 ?s1=s2 =0 var a:integer; b:integer; begin a:=ansistrcomp(‘ABC’,’Abc’)//a=0 b:=ansistrcomp(‘ABC’,’ABD’)//b0 end AnsiStrLComp AnsiStrLComp(S1,S2:Pchar ; M : Cardinal):Integer; 比较参数字符串S1，S2前M个字节的大小，大小写区分。条件 返回? s1s2 0 ?s1s2 0 ?s1=s2 =0 var a:integer; b:integer