GetCurrencyFormat eine Währung vorgeben

[bennle]

Hallo
Wie kann ich mit der Funktion GetCurrencyFormat eine Währung bzw Format vorgeben?

MfG
Bennle

[Klaus01]

Hallo ich denke mit GetCurrencyFormat kann keine Formatierung vorgenommen werden.
Sie gibt Dir nur die Systemeinstllungen für das Wüährungsformat.

Anbei ein Beispiel:
von http://www.alpha-factory.de/Hilfe/prog.htm

Währungen korrekt formatieren
Dieser Tipp zeigt, wie Sie per Windows-Funktion die Anzeige von Währungen gestalten.
Benutzen Sie die Windows-Funktion [I]GetCurrencyFormat[I], um Geldbeträge korrekt zu formatieren und anzuzeigen. Indem Sie auf diese Funktion zugreifen, vermeiden Sie eigenen Programmieraufwand. Denn im angelsächsischen Sprachraum bedeutet eine Zahl wie 12,000 zwölftausend und nicht, wie bei uns, zwölf komma null:

Delphi-Quellcode:

procedure TForm1.Button1Click(
Sender: TObject);
var
x : integer; s : string;
begin
  setlength(s, 255);
  for x := 0 to
    memo1.Lines.Count -1 do
  begin
   GetCurrencyFormat(LOCALE_SYSTEM_DEFAULT, 0,pchar((memo1.Lines[x])),nil,PChar(s),Length(s));
   memo2.lines.add(s);
  end;
end;

Grüße
Klaus

[bennle]

Zitat:

Zitat von Klaus01

Hallo ich denke mit GetCurrencyFormat kann keine Formatierung vorgenommen werden.
Sie gibt Dir nur die Systemeinstllungen für das Wüährungsformat.

Anbei ein Beispiel:
von http://www.alpha-factory.de/Hilfe/prog.htm


Währungen korrekt formatieren
Dieser Tipp zeigt, wie Sie per Windows-Funktion die Anzeige von Währungen gestalten.
Benutzen Sie die Windows-Funktion [I]GetCurrencyFormat[I], um Geldbeträge korrekt zu formatieren und anzuzeigen. Indem Sie auf diese Funktion zugreifen, vermeiden Sie eigenen Programmieraufwand. Denn im angelsächsischen Sprachraum bedeutet eine Zahl wie 12,000 zwölftausend und nicht, wie bei uns, zwölf komma null:

Delphi-Quellcode:

procedure TForm1.Button1Click(
Sender: TObject);
var
x : integer; s : string;
begin
  setlength(s, 255);
  for x := 0 to
    memo1.Lines.Count -1 do
  begin
   GetCurrencyFormat(LOCALE_SYSTEM_DEFAULT, 0,pchar((memo1.Lines[x])),nil,PChar(s),Length(s));
   memo2.lines.add(s);
  end;
end;

Grüße
Klaus

Hallo,
Danke, das habe ich schon so! Nur mein Problem ist das ich ein Programm habe bei welchem ich eine andere Währung möchte! Allerdings schreibt er das Format dann immer mit Euro! Kann man das "LOCALE_SYSTEM_DEFAULT" evtl definieren?

MfG
Bennle

[Klaus01]

Es gibt da noch einen API Aufruf SetLocalInfo, der könnte das machen was Du so vorhast.
Habe aber noch keine weiteren Infos dazu gefunden.

Aber warum implementierst Du nicht das Währungsformat für verschieden Währungen selber
anstatt in den Systemeinstellungen herumzuwerkeln?

Grüße
Klaus

[bennle]

Zitat:

Zitat von Klaus01

Es gibt da noch einen API Aufruf SetLocalInfo, der könnte das machen was Du so vorhast.
Habe aber noch keine weiteren Infos dazu gefunden.

Aber warum implementierst Du nicht das Währungsformat für verschieden Währungen selber
anstatt in den Systemeinstellungen herumzuwerkeln?

Grüße
Klaus

Hallo,
Habs nun ganz anderes gemacht! (FormatFloat)
Trotzdem Danke!

MfG
Bennle