probleme mit formatierter Ausgabe in Edit.TXT

[tedbomi]

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