知识大全字符串的相关判断[5]

Posted 2022-07-22 字节

篇首语：生活不是上帝的诗篇，而是凡人的欢笑和眼泪。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全字符串的相关判断[5]相关的知识，希望对你有一定的参考价值。

Delphi开发技巧：字符串的相关判断[5] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

——此文章摘自《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; cha138/Article/program/Delphi/201311/8466

知识大全 字符串的相关判断[5]

知识大全字符串的相关判断[5]