金额的格式化

如何把一个数值变成一个本地的金额字符串？

function GetCurrency(number: PChar): string;

var

tmpStr: string;

begin

SetLength(tmpStr, 255);

GetCurrencyFormat(LOCALE_SYSTEM_DEFAULT, 0, number, nil, PChar(tmpStr), Length(tmpStr));

Result := tmpStr;

end;

// Beispiel: Example:

procedure TForm1.Button1Click(Sender: TObject);

begin

Application.MessageBox(PChar(GetCurrency(PChar(Edit1.Text))), '', MB_OK);

end;