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 取pe文件的引入表和导出表

Delphi richedit控件中插入gif动画表情

Delphi 检查自己的进程的父进程

Delphi实现类似嵌入桌面的效果

Delphi 什么是堆、栈?

Delphi windows 编程[7] - wm_create 消息

Delphi fdmemtable1 清空

Delphi中读取硬盘的物理序列号

Delphi webbrowser全选\复制\粘贴

Delphi里实现获取资源管理器路径以及ie打开网址列表

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

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