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.