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

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

字符串中是否有小写字母

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

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

图 判断字符串中是否有小写字母

主要代码如下

procedure TFormButtonClick(Sender: TObject);

var

s : String;

niislow : Integer;

begin

islow := ;

s := EditText;

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()函数来获取字符在字符串中的位置如果返回的数字大于则表示该字符串中包含指定的字符如果返回值为则不包含运行结果如图所示

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

图 判断字符串中是否有指定的字符

主要代码如下

procedure TFormButtonClick(Sender: TObject);

begin

if pos(EditTextEditText)= then

ShowMessage(没有指定的字符)

else

ShowMessage(字符串中包含字符+EditText);

end;

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