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