- 1、本文档共56页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
delphi常用
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个字节的大小,大小写区分。条件 返回?
文档评论(0)