Texteingaben sowie leerstellen ausschliessen

[RSF]

oder die Eingabe im Ereignis KeyPress abfangen:

Delphi-Quellcode:

procedure TTaschenrechner.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
IF key =#13 Then Key:=#0
else
  if not (Key in [#8,#44..#46,#48..#57]) then Key:= #0
end;