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

Delphi开发技巧：字符串的相关判断[5]
——此文章摘自《Delphi开发经验技巧宝典》定价￥特价￥购买>>//track linktech cn/?m_id=dangdang&a_id=A &l= &l_type = width= height= border= nosave>
字符中是否有双字节
中文所用的字符全是双字节字符英文所用的字节全是单字节字符也就是mbSingleByte 本实例是用ByteType()函数返回字符串指定位置上的字符如果不是mbSingleByte 则表示为双字节字符运行结果如图所示
//develop csai cn/delphi/images/ jpg >图判断字符中是否有双字节
主要代码如下 procedure TForm Button Click(Sender: TObject); var s s : String; i : Integer; begin s := Edit Text; i := ; while i<Length(s) do begin if (ByteType(S i) <> mbSingleByte) then begin s := s + Copy(s i )+ ; i := i+ ; end else i:= i+ ; end; Label Caption := Trim(s ); end;
判数输入的字符串是否为整数
本实例是用库函数sign()来判断数字是否为整数当传入的值小于则返回&# ; 若传入的值大于则返回否则返回在用sign()函数时要在单元中加入Math单元运行结果如图所示
//develop csai cn/delphi/images/ jpg >图判数输入的字符串是否为整数
主要代码如下 procedure TForm Button Click(Sender: TObject); var s : String; i : Integer; begin s:=Edit Text; try i:=StrtoInt(s); if sign(i)= then //添加单元Math 或if i> then Label Caption := 是正整数 else begin if i= then Label Caption := 是整数else Label Caption := 非正整
数; end; except Label Caption := 输入无效; end; end; lishixinzhi/Article/program/Delphi/201311/8466。