''10.500,00' is not a valid floating point value

[Eppos]

Hallo zusammen,

habe folgendes Problem.

Wenn ich das ausführe:
EdPreis.Text := FloatToStr(EdAnzahl.Value * aPreis);

bekomme ich die Fehlermeldung, die im betreff steht. Wie kann ich diese umgehen bzw. abstellen?

Grüße,
Eppos

[mkinzler]

Es scheinen die falschen Systemeinstellungen gretoffen zu sein
-setzte die Konstanetn DecimalSeparator, ThousandSeparator
-verwende die überladenen Funktionen mit den Einstellungen als Parameter

[Eppos]

die Einstellungen gibt es leider nicht.

Dies ist eine Komponente.

[DeddyH]

Zitat von Eppos:

die Einstellungen gibt es leider nicht.

Doch, in der Unit SysUtils.

[mkinzler]

FloatToStr ist eine Funktion

[Eppos]

ok, kann mir jemand ein Besipiel schicken, wie ich das am besten machen soll.
Habe noch nicht soviel ahnung.

Danke fürs Verständnis.

[oki]

Mal mit FormatFloat probiert?

Gruß oki

[mkinzler]

Zitat von Eppos:

ok, kann mir jemand ein Besipiel schicken, wie ich das am besten machen soll.
Habe noch nicht soviel ahnung.

Danke fürs Verständnis.

Lösung 1:

Delphi-Quellcode:

DecimalSeparator := ',';
ThousandSeparator := '.';
EdPreis.Text := FloatToStr(EdAnzahl.Value * aPreis);

Lösung 2 (besser):

Delphi-Quellcode:

var 
  fs: TFormatSettings;
...
 fs.DecimalSeparator := ',';
 fs.ThousandSeparator := '.';
 EdPreis.Text := FloatToStr(EdAnzahl.Value * aPreis, fs);

[marabu]

Hallo,

das Hauptproblem scheint mir der Tausenderpunkt im Feld EdAnzahl zu sein - der muss weg:

Delphi-Quellcode:

var
  e: Extended;
begin
  e := StrToFloat(StringReplace('10.000,50', '.', '', [rfReplaceAll]));
  ShowMessage(FloatToStr(e));
end;

Sollte EdAnzahl eine Feldkomponente sein, dann hilft schon der typgerechte Zugriff mittels EdAnzahl.AsFloat um das Problem zu vermeiden.

Grüße vom marabu

[Eppos]

Danke für die Lösungsvorschläge.
Habe Lösung eins verwendet, aber trotzdem kommt die Fehlermeldung!? hm...
Auch die mi dem RaplceString habe ich probiert. Aber ich galube der hat ein Problem, das in das feld zuschreiben in EdPreis.Text!