Währungsformat

[Uwe Stachel]

Hallo zusammen,

kann mir jemand sagen, wie ich Währungen je nach Sprache darstellen kann?
Beispiel:

deutsch: 1.095,47
englisch: 1,095.47

Ich möchte allerdings nicht in der Systemsteuerung irgendwas umstellen...

Danke!

[Geert Dade]

Moin Uwe,

so gehts (anders bestimmt auch: FormatCurr, ...)

procedure TForm1.Button1Click(Sender: TObject);
const
C_EnglDec = '.';
C_EnglThous = ',';
C_EnglCurr = '£';
var
oldDecSep, oldThousSep : char;
sCurrString : string;
begin
oldDecSep := DecimalSeparator;
oldThousSep := ThousandSeparator;
try
DecimalSeparator := C_EnglDec;
ThousandSeparator := C_EnglThous;
sCurrString := C_EnglCurr;
ShowMessage(FormatFloat('#,##0.00', 8881.357) + sCurrString);
finally
DecimalSeparator := oldDecSep;
ThousandSeparator := oldThousSep;
end;
end;


Gruß,

Geert

[Bernd Schulz]

OK Geert war schneller...
Hallo!

Verfolg mal den Befehl
GetFormatSettings in die unit sysutils

Dort findest Du was Du suchst.
z.B.
showmessage ( floattostr ( 12345.67 ));
DecimalSeparator := '|';
showmessage ( floattostr ( 12345.67 ));

ergibt
12345,67
und dann
12345|67

BYE BERND