如何判断文本框中输入非数字字符

[zlz7803]

如何判断文本框中输入非数字字符，如果输入非数字字符就弹出对话框。
本人初学，请写详细些，谢谢！

[zzlazio]

I : Integer;
S : string
begin
S := Edit1.text;
for I:=1 to Length(S) do
if S[I] not in ['0'..'9'] then showmessage('Not Number')
end

[zzlazio]

最好放在OnExit事件里.不要放在OnChange

[cnhgj]

呵呵，简单的。。TryStrToInt函数判断

[chlear]

看下面的代码，放到Edit 的 OnKeyPress 事件中
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9',#8,#13]) then begin //#8 退格键，#13回车键
Key := #0;
ShowMessage('输入的不是数字！');
end;
end;

[frjfanding123]

key:=main.mainform.InputFloat(shiqums.text,Key);---------------------------------------------完美的--------


Function Tmainform.InputFloat(TempStr:String;Var Key:Char):Char;
begin
TempStr:=Trim(TempStr);
if Pos('.',TempStr)>0 then
begin
if Not (Key in['0'..'9',#8]) then
Result:=#0
else
Result:=Key
end
else begin
if Not (Key in['0'..'9','.',#8]) then
Result:=#0
else
Result:=Key
end;

[frjfanding123]

这是只能输入数字的
改一下就好