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

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

die Einstellungen gibt es leider nicht.

Dies ist eine Komponente.

Zitat von Eppos:

die Einstellungen gibt es leider nicht.

Doch, in der Unit SysUtils.

FloatToStr ist eine Funktion

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

Danke fürs Verständnis.

Mal mit FormatFloat probiert?

Gruß oki

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:

markieren

Delphi-Quellcode:

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

Lösung 2 (besser):

markieren

Delphi-Quellcode:

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

Hallo,

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

markieren

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

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!