(N)umerisches Feld akzeptiert keinen Punkt

[LOMBI]

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