Moin.

Ich möchte, dass die User im TEdit Kommazahlen (12,12, 13.29) eingeben. Die Möglichkeiten, die ich bisher ausprobiert habe sind irgendwie suboptimal:

- Mit dem OnExit Event ein StrToFloat aufführen, wenn auf eine Exception gelaufen wird den Benutzer zu informieren, dass die Eingabe keine gültige Kommazahl ist.

- Mit MaskEdit arbeiten. Das hat den Nachteil, dass man sehr genau vorgeben muss, wie die Zahl aussehen soll.

Am Besten wäre eine Lösung, die nur Zahlen und das Komma im Editfeld erlaubt. Kennt da jemand was? Muss doch eigentlich Standard sein.

Merci
Manfred

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

zusammenfalten · markieren

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;

Du könntest im OnKeyPress Key auswerten und bei ungültiger Eingabe (also weder Ziffer noch Decimalseparator) verwerfen. Das hat aber 2 Nachteile: der Decimalseparator kann so mehrfach eingegeben werden und über die Zwischenablage bekommt man trotzdem noch Quatsch hinein. Eine andere Möglichkeit, die mir spontan einfällt, wäre OnChange. Dort mit TryStrToFloat prüfen, ob etwas Plausibles drinsteht und ggf. durch eine vorher gemerkte Variable ersetzen.

nur kommazahlen eingeben

man kann auch noch die folgenden zeilen..

markieren

Delphi-Quellcode:

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

zu:

markieren

Delphi-Quellcode:

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

..abändern, und somit die Procedure für mehrere OnKeyPress Ereignisse einsetzen (habe ich zB in meinem Programm verwendet, sieht bei 13 TEdits hübscher aus)

lg,sign