Forum: Win32/Win64 API (native code)
Delphi
by Zacherl,
2. Apr 2018
Würde soweit funktionieren. Die extra Abfrage bezüglich String freigeben kannst du dir aber sparen, da der finally Abschnitt in jedem Falle ausgeführt wird (selbst bei Exit). Und SetLastError lass am besten auch komplett weg.
Forum: Win32/Win64 API (native code)
Delphi
by Zacherl,
2. Apr 2018
Nee das ist auch Murks :-D In etwa so müsste es aussehen:
var
Buffer: PChar;
BufferLen: Integer;
begin
BufferLen := GetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_STHOUSAND, nil, 0);
if (BufferLen = 0) then
begin
RaiseLastOSError;
end;
Forum: Win32/Win64 API (native code)
Delphi
by Zacherl,
2. Apr 2018
Nee, ist ja ein record. Alternativ beinhaltet System.SysUtils auch die globale Variable FormatSettings, die du direkt verwenden kannst.