Как разрешить ввод в Edit только чисел? — Delphi(Делфи)

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  m: set of Char;
begin
  m := ['0' .. '9'];
  if ord(Key) = 13 then
    edit2.SetFocus;
  if not(Key in m) then
    Key := chr(0);
end;

Leave a Comment