var
i: integer;
begin
result := true;
for i := 1 to Length(s) do
if not (s[i] in ['0'..'9']) then
begin
result := false;
break;
end;
end;
i: integer;
begin
result := true;
for i := 1 to Length(s) do
if not (s[i] in ['0'..'9']) then
begin
result := false;
break;
end;
end;
解决方案 »
- 求一个漂亮的类似listview的控件
- delphi oposprinter 打印问题 高手指点
- 求SQL语句:以表中记录出现次数为序,从大到小依次将所有记录(重复记录只出现一次)列出来
- 求解,网络语音聊天
- 如何在DBGRID中输入一些特殊符号,如◎○#?
- 用SHChangeNotifyRegister()函数监视文件夹的问题
- 问一下我想在radiobtn.checked=true时才让editkeypress事件起作用要怎么办呢
- delphi如何连接sql server 数据库
- 请教文件流中,记录对象的删除问题
- fastreport自定义函数的删除
- 请小新等各位高手帮我看看这段代码,很简单的
- 关于安装软件的小问题
怎样将字符串中的一个字符付给一个char变量?
function StrIsNum(s:string) : boolean
var
i : integer;
c : char;
begin
result := true;
for i := 1 to Length(s) do
begin
c := s[i];
if (c>'9') or (c<'0') then
begin
result := false;
break;
end;
end;
end;怎么在程序执行的过程中随时停止它?
Application.Terminate;