Nur Zahlen im TEdit, aber auch Kommazahlen

[Hansa]

Zusatzkomponenten für sowas ? Das muß wirklich nicht sein. Mittlerweile dürfte bei einigen auch Turbo-Delphi grüßen.

OnKeyPress (TEdit) :

Delphi-Quellcode:

  if (Key in ['0'..'9',DecimalSeparator]) then begin  
    if key = DecimalSeparator then begin
      if Pos(DecimalSeparator, Text) > 0 then  // keine zwei DecimalSeparators
        Key := #0
    end

Und der Tip, erst einmal unnötigerweise unsinnige Eingaben zuzulassen, um sie dann wieder rückgängig zu machen, was soll denn das ? Wohl noch nichts von Verhütung gehört ? Die paar Zeilen sind natürlich nur als Beispiel anzusehen und deckt nicht alle Sonderfälle ab. Ein fühtendes , müßte das Programm übrigens standardmäßig auch abdecken. Das kann jeder Taschenrechner für 2 EUR. Und . oder , das sollte auch egal sein, siehe Konstante DecimalSeparator.