Währung stimmt nicht

[dm16]

Hallo,

bin neu hier und hoffe, das richtige Forum erwischt zu haben... :wink:
Mein Problem ist Folgendes: Ich habe mir einen Rechner programmiert, der mir am Ende als Ergebnis einen Geldbetrag anzeigen soll. Das tut er auch, allerdings in Dollar. Ich möchte aber gern Euros da stehen haben. Nun habe ich gelesen, dass in dafür der in die Systemsteuerung hinterlegte Währung entsprechend des Landes genutzt wird. Da ist alles auf deutsch bzw. Deutschland gestellt.
Kann mir jemand helfen, dass ich am Ende einen Eurobetrag erhalte?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var Z_alt, Z_neu, Verbrauch, Preis: real;
begin
     Z_alt:= Strtofloat(edit1.text);
     Z_neu:= Strtofloat (Edit2.Text);
     Verbrauch:= Z_neu-Z_alt;
     Preis:= (90+Verbrauch*0.2)*1.16;
     panel1.caption:= floattostrF(Preis,ffcurrency,18,2);
end;

end.

Ich hoffe, ihr könnt mir helfen. Danke schonmal im Voraus!

Viele Grüße,
Dirk

[himitsu]

Dann ist wohl dein Windows nicht "richtig" auf Euro eingestellt?
Delphi übernimmt ja die standardmäßig erstmal Einstellungen vom Windows.
[edit] da war wer schneller mit suchen.

FloatToStrF hat noch einen weiteren FormatSettings-Parameter.
Falls es den in Delphi 7 noch nicht gab, wirst du die globalen Settings ändern müssen.

Ich glaub in der Unit SysUtils müsste es dann globale Variablen geben, die so heißen, wie die Felder des verlinkten FormatSettings.

[Fritzew]

Schuss ins blaue: Windows ab v7 hatte da ein problem.....
Stelle die sprache einmal auf englisch und wieder zurück, sollte Dein problem beheben

[HolgerX]

Hmm..


Durfte das gleiche Problem wie hier sein:

http://www.delphipraxis.net/191392-p...separator.html

[dm16]

Vielen Dank für die schnelle Hilfe, das hat super geklappt. Verrückt, aber auf diesen Thread von HolgerX bin ich bei der Suche nicht gestoßen. Danke euch allen!