ratio rechner

[Rackergen2]

Fang mal Buchstaben mit der OnKeyPress-Methode ab.

Delphi-Quellcode:

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char); //Für alle Edits verwendbar
begin
  if (not (key in ['0'..'9',',',#0..#31])) or //Wenn Taste nicht Funtionstaste, 0..9 oder Komma ist 
     ((pos(',',(Sender as TEdit).Text)>0) and //oder schon ein Komma vorhanden ist,
      (key=',')) then //aber Komma gedrückt wurde,
    key:=#0; //dann Taste ignorieren
end;