Delphi开发技巧：字符串的相关判断[4]

——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥  购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

字符是否可以转换成整数

本实例是用StrToIntDef()函数来判断字符串是否为整数如果字符串是整数那么StrToIntDef(s)和StrToIntDef(s)将返回转换后的整数如果字符串不是整数 StrToIntDef(s)将返回StrToIntDef(s)将返回运行结果如图所示

http://developcsaicn/delphi/images/jpg>

图 判断字符是否可以转换成整数

主要代码如下

function TFormIsIntStr(const S: String): Boolean;

begin

if StrToIntDef(S)=StrToIntDef(S) then

Result:=True

else

Result:=False;

end;

procedure TFormButtonClick(Sender: TObject);

begin

if IsIntStr(EditText) then

ShowMessage(可以转换成整数)

else

ShowMessage(不可以转换成整数);

end;

字符中是否有汉字

本实例是用Length()函数来获取字符串的长度用Ord()函数来获取每个字符的ASCII码当ASCII码的值大于$F时表示该字符是汉字的前一个字节并用Copy()函数来获取当前的汉字运行结果如图所示

http://developcsaicn/delphi/images/jpg>

图 判断字符中是否有汉字

主要代码如下

procedure TFormButtonClick(Sender: TObject);

var

strssj: String;

i: integer;

begin

str := trim(EditText);

i := ;

while i< Length(str) do

begin

if ord(str[i]) > $F then

begin

s := Copy(stri);

sj :=sj+ +s+;

i := i+;

end

else i:=i+;

end;

LabelCaption := 在字符串中含有汉字+sj;

end;

right>[http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [] [http://developcsaicn/delphi/htm>]