GetNumberFormat

[day]

Hallo

Ich habe probleme mit der funktion GetNumberFormat. Und zwar stürtzt nach beim initialisieren der Forms die Applikation ab wenn ich diese funktion verwende.
Ich benutze sie folgender massen.

Code:

Function Test( ValueStr : String ) : Double;
var lTemp : PChar;
    lResult : String;

GetNumberFormat(LOCALE_USER_DEFAULT,LOCALE_NOUSEROVERRIDE,PChar(ValueStr),nil,lTemp,60);

.
.
.

Ist der aufruf so korrekt?

[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