Hallo Jaenicke,
ich habe mich da wohl nicht vollständig erklärt. Nachfolgend das Resultat:
Delphi-Quellcode:
procedure TForm9.EinPreisKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Var Preis: Real;
Begin
If key=13 Then
begin
Preis:=StrToFloat(StringReplace(Trim(EinPreis.Text),'.','',[rfReplaceAll]));
EinPreis.Text:=FloatToStrF(Preis,ffNumber,8,2);
EinSumme.Text:=FloatToStrF((StrToFloat(EinAnzahl.Text) * Preis),ffNumber,8,2);
end;
end;
Ohne StringReplace kam es immer zu der o. g. Fehlermeldung.
Oder hast du eine noch einfachere bzw. bessere Lösung?
TedBomi