Kommazahlen in TEdit

[mannewolff]

Erst googeln, dann fragen. Hier eine von vielen Möglichkeiten

Delphi-Quellcode:

procedure TMainForm.Edit1KeyPress(Sender: TObject; var Key: char);
begin
  // Nur Punkt, Komma, Zahlen und Backspace zulassen
  if NOT (Key in [#8, '0'..'9', ',', '.']) then
    Key := #0;

  // , bzw. . nur einmal eingeben
  if (key = ',') or (key = '.') then
  if pos(',', Edit1.Text) > 0 then
  begin
    key := #0; exit;
  end;
 
  // . in , wandeln
  if Key = '.' then
    Key := ',';
end;