Forum: Object-Pascal / Delphi-Language
Delphi
by Benmik,
20. Dez 2018
Da würde mich interessieren, auf welchem programmatischen Wege Emba das Problem lösen könnte.
Forum: Object-Pascal / Delphi-Language
Delphi
by Benmik,
19. Dez 2018
Genau!
Interessant auch, wie zielgenau ich exakt diejenige Codezeile, die zur Lösung geführt hätte, als scheinbar (ja, scheinbar, nicht anscheinend!) unwichtig weggelassen hatte.
Auf der anderen Seite wundere ich mich immer, wie hier die Experten einen Fullpost von 500 Zeilen offenbar mit Lichtgeschwindigkeit durchparsen. Wahrscheinlich dauert es nicht mehr lang, bis die Compilerisierung...
Forum: Object-Pascal / Delphi-Language
Delphi
by Benmik,
19. Dez 2018
Das Problem wurde durch hoika gelöst.
Die Stelle, die mir - im Nachhinein gesehen - hätte auffallen müssen, lautet:JamPathList := JamShellLink.SelectionList.GetListOfAllFiles;
Dort wird eine TStringList zurückgegeben, die in GetListOfAllFiles erzeugt wird. JamPathList muss/darf also gar nicht erzeugt werden, daher ganz richtig das Speicherleck. Tschuldigung, FastMM!
Meiner Meinung nach ist...
Forum: Object-Pascal / Delphi-Language
Delphi
by Benmik,
19. Dez 2018
Tut mir leid, das sind die gleichen Variablen, ich hatte das JamPathList einfach auf PathList gekürzt...
Das OwnsObject und Sorted sind Überbleibsel von meinen Versuchen, das Object manuell zu leeren...
Das war eine rasche Lösung, vielen Dank. Tut mir leid, dass ich mit der wechselnden Verwendung von JamPathList und PathList für Verwirrung gesorgt habe. JamPathList ist eine einfache...
Forum: Object-Pascal / Delphi-Language
Delphi
by Benmik,
19. Dez 2018
Steht in Shell_Win32: TFilenameList = TStringList;
Ich habe es oben eingefügt. Ich hielt es nicht für wichtig, die Verzliste allein würde doch genügen. Ich habe es nur mit aufgenommen, da beide angemeckert werden.
@hoika:
Wenn ich nur JamPathList:= TJamPathList.Create;
try
JamPathList.Add('Bla');
finally
JamPathList.Free;
end;
Forum: Object-Pascal / Delphi-Language
Delphi
by Benmik,
19. Dez 2018
Folgender Code:procedure TForm1.TuWas;
var i:integer;
Txt:string;
VerzListe:TStringList;
PathList:TJamPathList;
begin
...
PathList := TJamPathList.Create; // TJamPathList = TStringList
VerzListe := TStringList.Create;
VerzListe.Sorted := True;