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

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

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

    字符串中是否有小写字母

    本实例是用length ()函数来获取字符串的总长度 再用自定义函数IsLower()对字符串中的每个字符进行判断 如果是小写字母 则返回True 运行结果如图 所示

//develop csai cn/delphi/images/ jpg >图   判断字符串中是否有小写字母

    主要代码如下     procedure TForm Button Click(Sender: TObject);     var      s : String;      n i islow : Integer;     begin      islow := ;      s := Edit Text;      n := Length(s);      for i:= to n do       if IsLower(s[i]) then       begin         islow := ;         break;       end;      if islow> then       ShowMessage( 该字符串中有小写字母 )      else       ShowMessage( 该字符串中没有小写字母 );     end;

    字符串中是否有指定的字符

    本实例是用pos()函数来获取字符在字符串中的位置 如果返回的数字大于 则表示该字符串中包含指定的字符 如果返回值为 则不包含 运行结果如图 所示

//develop csai cn/delphi/images/ jpg >图   判断字符串中是否有指定的字符

    主要代码如下     procedure TForm Button Click(Sender: TObject);     begin      if pos(Edit Text Edit Text)= then       ShowMessage( 没有指定的字符 )      else       ShowMessage( 字符串中包含字符 +Edit Text);     end; lishixinzhi/Article/program/Delphi/201311/8469