delphi常用.doc

Addr Addr(x):Pointer 该函数返回一个变量或子程序的地址。（即指针，与@运算符等价）。 "var x:Pointer; begin x:=Addr(x);{现指向它自己} end; " AnsiCompareFileName AnsiCompareFileName(Const S1,S2 : String):Integer 基于当前地区的特征比较两个文件名。 "条件 返回 s1>s2 >0 s1<s2 <0 s1=s2 =0 " AnsiCompareStr AnsiCompareStr(Const S1,S2 : string):Integer; 比较两个字符串的大小（区分大小写）。条件 返回 s1>s2 >0 s1<s2 <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; 比较两个字符串的大小，（不分大小写的比较）。例如 条件 返回? s1>s2 >0 ?s1<s2 <0 ?s1=s2 =0 "const s1; string=’Delphi’; s2:string=(‘delphi’); var x:integer; begin x:=strcomp(s1,s2); if x<0 then showmessage(‘Delphi’<’delphi’) else if x>0 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; 比较空结束的字符串的大小，（要分大小写）? 条件 返回 ?s1>s2 >0?s1<s2 <0?s1=s2 =0 "var a:integer; b:integer; begin a:=ansistrcomp(‘ABC’,’Abc’)//a<0 b:=ansistrcomp(‘ABC’,’ABD’)//b<0 end " AnsiStrIComp AnsiStrIComp(S1,S2:Pchar):Integer; 比较空结束的字符串的大小，（不分大小写）条件 返回? s1>s2 >0 ?s1<s2 <0 ?s1=s2 =0 "var a:integer; b:integer; begin a:=ansistrcomp(‘ABC’,’Abc’)//a=0 b:=ansistrcomp(‘ABC’,’ABD’)//b<0 end " AnsiStrLComp AnsiStrLComp(S1,S2:Pchar ; M : Cardinal):Integer; 比较参数字符串S1，S2前M个字节的大小，大小写区分。条件 返回?