Forum: Object-Pascal / Delphi-Language
Delphi
by LeoDD,
16. Jan 2009
Nicht schlecht. Erst TList mit Pointern, dann TObjectList mit Pointern, nun TObjectList mit TObjects. Es wird immer besser, der Code übersichtlicher, ich danke euch vielmals.
Wir haben es gleich geschafft, ich hoffe ich darf noch auf eure Hilfe zählen. EurekaLog meldet nun noch Speicherlecks hier:
function TTC7AutoStart.NewObservationFile(ASKind: TTC7AutoStartKind; FileName: string):...
Forum: Object-Pascal / Delphi-Language
Delphi
by LeoDD,
15. Jan 2009
Hatte ich vorher, mit dem gleichen Ergebnis.
Forum: Object-Pascal / Delphi-Language
Delphi
by LeoDD,
15. Jan 2009
Ich hab meine Datenstruktur nun auf classes umgestellt, die Speicherung klappt auch. Mir werden allerdings immer noch Speicherlecks angezeigt und vermutlich mache ich was falsch bei der Belegung der Listen.
Ich habe eine Routine, die eine neue Klasse anlegt damit diese später verwendet werden kann. Und dort findet EurekaLog ein Speicherleck:
procedure TTC7AutoStart.CreateAutoStartStruc(var...
Forum: Object-Pascal / Delphi-Language
Delphi
by LeoDD,
15. Jan 2009
Das werde ich mal probieren, danke erstmal :)
Forum: Object-Pascal / Delphi-Language
Delphi
by LeoDD,
14. Jan 2009
Hab ich gerade versucht, hat aber nichts geholfen. Schutzverletzung bei Encyclopedia.Free.
Forum: Object-Pascal / Delphi-Language
Delphi
by LeoDD,
14. Jan 2009
Leider nicht. Ich bin jetzt schon etwas weitergekommen, das ist vielleicht für andere auch gut zu wissen, die sich mit ähnlichen Problemen herumschlagen.
Eine TObjectList, deren Objekte selbst Objekte beinhalten, gibt diese verschachtelten Objekte nicht wieder frei, wenn diese manuell instanziiert werden.
Beispiel:
TObjectList1 beinhaltet Zeiger auf Records, in dem ein Objekt vom Typ...
Forum: Object-Pascal / Delphi-Language
Delphi
by LeoDD,
14. Jan 2009
Hallo liebe Delphi Gurus, wieder einmal verzweifel ich obwohl die Lösung sicher ganz nah ist.
Ich verwende mehrere Listen (TObjectList) und Ableitungen von TObjectList.
Das sieht zum Beispiel so aus:
TTC7AutoStart = class(TObjectList)
public
IconCache: TTC7IconCache;