——此文章摘自《Delphi开发经验技巧宝典》定价
￥
特价
￥
购买>>http://track
linktech
cn/?m_id=dangdang&a_id=A
&l=
&l_type
=
width=
height=
border=
nosave>
某一字符是否在字符串中
本实例是用AnsiMidstr()函数获取指定字符串中的单个字符也可以获取指定长度的子字符串运行结果如图所示
http://developcsaicn/delphi/images/jpg>
图 判断某一字符是否在字符串中
主要代码如下
procedure TFormButtonClick(Sender: TObject);
var
ip:Integer;
begin
if (EditText=)or(EditText=) then
begin
ShowMessage(请把信息添全);
end
else
begin
if Length(EditText)= then
begin
p:=Length(EditText);
for i:= to p do
begin
if Trim(EditText)=AnsiMidstr(EditTexti) then
begin
LabelCaption:=在字符串中;
break;
end
else
begin
LabelCaption:=不在字符串中;
end;
end;
end
else
ShowMessage(字符只能是单个字符);
end;
end;
字符串是由数字大写字母或小写字母组成
本实例是用StrToInt()函数来判断字符串是否由数字组成当字符串不能由StrToInt()函数进行转换时在异常处理中用Uppercase()和Lowercase()函数来判断字符串是由大写字符串还是小写字符串组成运行结果如图所示
http://developcsaicn/delphi/images/jpg>
图 判断字符串是由数字大写字母或小写字母组成
right>[] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>]
![Delphi开发技巧：字符串的相关判断[1]](/UploadFiles/5.jpg)