rt
解决方案 »
- 如何做一下比较完整的查询体系,可以任意的查询出某一个人或某些人,我用的是sql库
- quickreport,adotable,设计时预览可以但是运行时调用QuickRep1.Preview出错:Invalid variant type conversion
- WideString 变量 如何判断里边装有多少字符
- 提个XML入门级的问题,XML --> 建树 ---> Ttreeview
- Delphi下的ADO?
- 中文win95下载(急。。。)
- 高手请进,关于Socket问题?(在线等待)
- 数据库中图片显示问题?
- delphi5开发人员指南是不是真的很好,我要剩下饭钱准备出血一次,你们是值不值?
- DELPHI中数据计算的问题
- 如何立即知道客户端掉线?
- 我的小程序想有xp风格界面,但是不知道怎么样实现
var
i:integer;
begin
for i:=0 to Length(EditText) do
begin
if not (EditText[i] in ['0','9']) then
begin
ShowMessage(EditText+' 不是数字');
Exit;
end;
end;
ShowMessage(EditText+' 是数字');
end;
如:
function IsNum(str: string): boolean;
var
i: integer;
isPoint: Boolean;
begin
result := true;
isPoint := false;
for i = 1 to length(str) do
begin
if (str[i] = '.') then
if isPoint then
begin
result := false;
break;
end
else isPoint := True;
if not (str[i] in ['0'..'9']) then
begin
result := false;
break;
end;
end;2、用Val函数,如
function IsNum(str: string): boolean;
var
i, s: integer;
begin
val(str, i, s);
result := s = 0;
end;