——此文章摘自《Delphi开发经验技巧宝典》定价
￥
特价
￥
购买>>http://track
linktech
cn/?m_id=dangdang&a_id=A
&l=
&l_type
=
width=
height=
border=
nosave>
主要代码如下
procedure TFormButtonClick(Sender: TObject);
var
Isstr : String;
begin
Isstr := EditText;
try
StrToInt(Isstr);
ShowMessage(由数字组成！);
except
if Isstr=Uppercase(Isstr) then
ShowMessage(由大写字母组成！)
else
if Isstr=Lowercase(Isstr) then
ShowMessage(由小写字母组成！)
else
ShowMessage(无法识别可能是混杂型)
end;
end;
字符串中的某一字符是否大写
本实例先用Ansiuppercase()函数将要查找的字符串转换成大写然后用AnsiMidstr()函数在字符串中进行查找运行结果如图所示
http://developcsaicn/delphi/images/jpg>
图 判断字符串中的某一字符是否大写
主要代码如下
procedure TFormButtonClick(Sender: TObject);
var
sx:String;
i:Integer;
begin
s:=Ansiuppercase(Trim(EditText));
for i:= to Length(Trim(EditText)) do
begin
if Ansiuppercase(Trim(EditText))=AnsiMidstr(trim(EditText)i) then
begin
LabelCaption:=有;
break;
end
else
LabelCaption:=没有;
end;
end;
right>[http://developcsaicn/delphi/htm>] [] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>]
![Delphi开发技巧：字符串的相关判断[2]](/UploadFiles/4.jpg)