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

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

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

    字符是否可以转换成整数

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

//develop csai cn/delphi/images/ jpg >图   判断字符是否可以转换成整数

    主要代码如下     function TForm IsIntStr(const S: String): Boolean;     begin      if StrToIntDef(S )=StrToIntDef(S ) then       Result:=True      else       Result:=False;     end;     procedure TForm Button Click(Sender: TObject);     begin      if IsIntStr(Edit Text) then       ShowMessage( 可以转换成整数 )      else       ShowMessage( 不可以转换成整数 );     end;

    字符中是否有汉字

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

//develop csai cn/delphi/images/ jpg >图   判断字符中是否有汉字

    主要代码如下     procedure TForm Button Click(Sender: TObject);     var      str s sj: String;      i: integer;     begin      str := trim(Edit Text);      i := ;      while i< Length(str) do      begin       if ord(str[i]) > $ F then       begin        s := Copy(str i );        sj :=sj+ +s+ ;        i := i+ ;       end       else  i:=i+ ;      end;      Label Caption := 在字符串中含有汉字 +sj;     end; lishixinzhi/Article/program/Delphi/201311/8470