delphi 判断字符串是否包含数字

本文整理自网络，侵删。

 
function checkstr1(const str: string): Boolean;
var
j:integer;
begin
Result :=false;
for J:=1 to Length(str) do
begin
if (str[J] in ['0'..'9']) then
begin
Result :=true;
break;
end;
end;
end;

procedure TForm16.Button1Click(Sender: TObject);
begin
if checkstr1(edit1.text) then
begin
  caption:='t';
  end
  else
  begin
   caption:='f';
  end;
end;

 

相关阅读 >>

Delphi遍历所有控件

使用rad studio为安卓内置的java库

Delphi 点击关闭叉时,最小化图标

Delphi json 转换成 tfdmemtable

Delphi console 清屏代码

Delphi中用拼音首字符序列来实现检索功能

Delphi.about.com一个钩子的实现代码

Delphi 提取标签之间的字符串

Delphi 查找指定目录，指定扩展名的所有文件名

Delphi 获取 cpu 使用率的单元

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 判断字符串是否包含数字