Question

delphi 怎么限制Edit组件里输入必须为数字型

最好用异常处理，

Answer 1

procedure Tzengjiajifen.Edit12KeyPress(Sender: TObject; var Key: Char);
begin
//防止输入非法字符

if((Key>=#32)and(Key<#255))and(not(((Key>='0')and(Key<='9'))or(Key='.')or(Key='-')))then
begin
Key:=#0;
end;}

end;

Answer 2

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
try
if Key <> #8 then
StrToInt(Key);
except
Key := #0;
end;
end;