ComboBox mit unterschiedlichen Objekten - sauber abraeumen?

[OldGrumpy]

Hallo zusammen,

ich hab mal wieder ein übles Stückchen Software vor mir. Momentan habe ich da eine Combobox, der mittels AddObject() neben den einzelnen Strings auch unterschiedliche zugehörige Objekte (fragt mich nicht warum, dazu komme ich erst später, erstmal muss ich die drei Millionen Speicherlecks beheben...) zugewiesen werden. Wenn die Combobox später abgeräumt wird, muss ich natürlich diese Objekte auch einzeln wieder freigeben, nur wie komme ich da ran? Entweder bin ich zu doof die OH zu verstehen oder ich seh den Wald vor lauter Bäumen nicht. Bei meinen bisherigen Experimenten bin ich noch nicht über diverse Access Violations hinausgekommen... Auch die Suche hier im Forum war nicht wirklich erleuchtend, kann mir mal jemand bitte einen Schubs in die richtige Richtung geben? :) Herzlichen Dank schonmal im Voraus :mrgreen:

[mkinzler]

.Objects

[OldGrumpy]

okay, ich haette dazusagen sollen, dass ein myCombobox.Items.Objects[i].Free zu den erwähnten AVs führt.

[IngoD7]

Zitat:

Zitat von OldGrumpy

okay, ich haette dazusagen sollen, dass ein myCombobox.Items.Objects[i].Free zu den erwähnten AVs führt.

Wie und wo machst du es denn (Code)?

[OldGrumpy]

Wo ist mein Kaffee... bin noch nicht ganz wach, das Projekt das ich hier übernommen hab ist echt schlimm. Ich hab in den letzten Tagen sicherlich fuenfhundertmal TList.Create gesehen, gefolgt von diversen Zuweisungen von Objekten in die Liste und danach ein einfaches TList.Free - ohne vorher die Objekte abzuraeumen. Das Logfile von FastMM4 war 1,9 MB gross :shock: und inzwischen bin ich auf 450kb runter ;)

Also, befüllt wird die Combobox in MyForm.FormCreate (gebunden ans OnCreate-Event):

Delphi-Quellcode:

procedure TMyForm.FormCreate(Sender: TObject);
Begin
[...]
MyComboBox.items.addObject(menutext, TObject(integer(TMyEffect)));
MyComboBox.items.addObject(menutext2, TObject(integer(TMyEffect2)));
[...]
End;

menutext und menutext2 sind Strings, und wo ichs jetzt paste wundere ich mich, was das mit dem TMyEffect usw. soll - TMyEffect und Konsorten sind Klassendefinitionen.

Abgeraeumt soll das ganze natürlich in TMyForm.FormDestroy (gebunden ans OnDestroy-Event):

Delphi-Quellcode:

procedure TMyForm.FormDestroy(Sender: TObject);
var i: integer;
Begin
[...]
for i:=0 to MyComboBox.Items.Count-1 do MyComboBox.Items.Objects[i].Free;
[...]
End;

So, und nun bin ich mal gespannt, was ich da übersehen hab :)

[mkinzler]

Zitat:

Delphi-Quellcode:

MyComboBox.items.addObject(menutext, TObject(integer(TMyEffect)));

?

[ste_ett]

Hast du auf "<> nil" geprüft? :)

[OldGrumpy]

Zitat:

Zitat von ste_ett

Hast du auf "<> nil" geprüft? :)

Ja, nirgends nil zu sehen. Würde mich auch wundern wenn nach der obigen Zuweisung irgendwo nil drinständ ;)

Zitat:

Zitat von mkinzler

Zitat:

Delphi-Quellcode:

MyComboBox.items.addObject(menutext, TObject(integer(TMyEffect)));

?

Könntest Du bitte im ganzen Satz fragen? Ist noch früh :)

[mkinzler]

Warum versuchst du eine Referenz(Zeiger) auf ein Objekt zuerst in einene Integer und dann in ein TObject zu casten (jedes Objekt ist schon ein TObject) ?

[OldGrumpy]

Zitat:

Zitat von mkinzler

Warum versuchst du eine Referenz(Zeiger) auf ein Objekt zuerst in einene Integer und dann in ein TObject zu casten (jedes Objekt ist schon ein TObject) ?

Das ist nicht mein Code, ich hab das Projekt nur übernommen nachdem der alte Programmierer das Weite gesucht hat ;) Das ganze Paket hat weit über hunderttausend Zeilen Code, ich hab in den drei Tagen jetzt noch nicht allzuviel davon wirklich anschauen können. Was das da soll, kann ich Dir auf Anhieb auch nicht sagen, ich schau mal eben ob sich da was finden lässt das Aufschluss gibt...