GetCurrencyFormat eine Währung vorgeben

[bennle]

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