[Annet]

Наверняка эта тема уже рассматривалась, но я не нашла ничего похожего.
Подскажите, пожалуйста, господа асы-программисты как сделать так, чтобы в TEdit можно было ввести только цифры. Заранее большое-прибольшое спасибки))))

[Aristarh Dark]

Код:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not(Key in ['0'..'9',chr(8)]) then
    Key:=#0;
end;