Hi,
Ihr seit die Besten.
Wow Herzlichen Dank.
Habe es noch ein bisschen verfeinert:
Delphi-Quellcode:
if Key = ',' then Key := '.';// das ist neu, macht aus , einen Punkt
// Nur '.', Zahlen und Backspace zulassen
If not (Key in [#46, #48..#57, #8]) then
Key := #0;
// Wenn mehr als 2 Nachkommastellen und Taste kein Backspace -> ignorieren
If (Pos('.', Edit1.Text) <> 0) then
begin
if Key = '.' then Key := #0; // <---
// <--- die beiden Zeilen hier sind neu, Rest wie bei ManuMF
if (Length(Edit1.Text) - Pos('.', Edit1.Text) >= 2) then
begin
if (Key <> #8) then
Key := #0;
end;
end;
Frohe Weihnachten und nochmals Vielen Dank.