如何把一个数值变成一个本地的金额字符串？
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 ;