Man kann es auch so direkt einbinden:
Delphi-Quellcode:
procedure SysFreeString(const S: WideString); stdcall;
external oleaut name 'SysFreeString';
Ich habe diese Verhalten auch bei
SetString festgestellt. Und dieses wird durch die beliebte
Explode Funktion aufgerufen. Deshalb verwende ich
Explode jetzt z.B. immer so:
Delphi-Quellcode:
aParts := Explode('/', sName);
for iName := 0 to length(aParts) -1 do
begin
...
SysFreeString(aParts[iName]);
end;
Mir lief nämlich irgendwann der Speicher bei einer Kundenanwendung, die pausenlos läuft zu.