GetNumberFormat

[shmia]

Du musst Speicherplatz für die Ausgabe reservieren:

Delphi-Quellcode:

Function Test( ValueStr : String ) : Double; 
var Temp : String; 
   anz : integer; 
begin
  SetLength(temp, 60);
  anz := GetNumberFormat(LOCALE_USER_DEFAULT,LOCALE_NOUSEROVERRIDE,PChar(ValueStr),nil, PChar(Temp), Length(Temp)); 
  if anz =0 then
     RaiseLastWin32Error;
  SetLength(Temp, anz);  // String verkürzen auf den gültigen Inhalt