Hallo marabu,
Delphi-Quellcode:
...
value := StrToFloat(Translate(EditEKpreis.Text, '.,', DecimalPoint));
...
'DecimalPoint' existiert leider unter D3 nicht, deshalb:
Delphi-Quellcode:
...
value := StrToFloat(Translate(EditEKpreis.Text, '.,', DecimalSeparator));
...
Zusätzlich habe ich in der Systemsteuerung die Ländereinstellung für
Zahlen verändert und den folgenden Code ergänzt:
Delphi-Quellcode:
procedure TDemoForm.EditEKpreisKeyPress(Sender: TObject; var Key: Char);
begin
if Key = ',' then Key := '.';
end;
Problem ist noch, wenn EditEKpreis, EditVknetto oder EditVKbrutto leer
ohne Eintrag bleiben, dann kommt die Meldung: '' kein gültiger
Fließkommawert.
Wie kann ich denn bei den Edits noch die Stellen vor und nach dem Komma festlegen, z.B. 6 Stellen vor und 4 nach dem ,
Herzlichen Dank nochmals für Deine Mühe!
Grüße
Lombi