Delphi-Quellcode:
var
FileName: string;
SplitPath: TstringList;
begin
SplitPath := TStringList.Create;
SplitPath.StrictDelimiter:= true;
SplitPath.Delimiter := '\';
try
SplitPath.DelimitedText := ExtractFilePath(FileName);
SplitPath.DelimitedText := ''; // bringt nichts
SplitPath.Clear; // auch nichts
finally
FreeAndNil(SplitPath);
end;
end;
SetDelimitedText ist der letzte Aufruf (Memory Leak)
Es wird alles freigegeben trotzdem habe ich hier Speicherlecks.