EditFeld nur bestimmte Werte zulassen

[Klaus01]

Delphi-Quellcode:

procedure TForm1.DoOnEdit1KeyDown(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', ',', #8]) then // #8 ist die Backspace Taste
    Key := #0;
  if (key = ',') and (pos(',',(sender as TEdit).text) >0) then
    key := #0;
end;

[ungetestet]

Grüße
Klaus