probleme mit formatierter Ausgabe in Edit.TXT

[jaenicke]

Zitat von tedbomi:

Die Eingabe erfolgt nicht manuell, sondern durch FloatToStrF(Preis,ffNumber,8,2).

Wie jetzt?
Du gibst erst eine bereits vorhandene Zahl in einem Editfeld aus und wandelst diesen String dann wieder in eine Zahl um um damit weiterzuarbeiten?!?

Speichere die Zahl einfach zwischen, dann stellt sich das ganze Problem nicht...

[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

[haentschman]

Hallo,

wie wärs denn mit einem MaskEdit. Da hast du noch gleich die Falscheingabe mit Buchstaben aus dem Kreuz.

[jaenicke]

Zitat von tedbomi:

Oder hast du eine noch einfachere bzw. bessere Lösung?

Ja: einfach nix außer Zahlen, DecimalSeparator und Backspace eingeben lassen...
(OnKeyPress)

Oder eben wie gesagt wurde TMaskEdit.

Oder wenn du was ersetzt, dann doch bitte DecimalSeparator und nicht '.', was ist bei nem englischen System...