dephli如何判断字符串是否数字

老兄啊,花了半个小时终于帮你做出来了
放两个东西就行了:1个Edit,1个按钮
双击按钮作一个button单击事件Button1Click,放入以下代码就行了
procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,j:integer;
begin
s:=trim(edit1.Text);
for i := 1 to length(s) do
begin
j:=ord(s[i]);
if (j>47) and (j<58) then
begin
if i=length(s) then
begin
showmessage('你输入正确');
edit1.SetFocus;
end;
end
else
begin
showmessage('请输入数字');
edit1.Text:='';
edit1.SetFocus;
break;
end;
end;

一个是判断ACI码，也可以用
function aaaa(astr: string):boolean;
var
tmp: integer;
begin
try
strtoint(astr);
result:=true;
except
result:=false;
end;
end;

另外如果你需要限制edit只能输入数字，在onkeypress事件里写：
if not (key in ['0'..'9',#8]) then key:=#0;