TObjectList

[twityzuz]

Jaja das mit dem .Create habe ich ja jetzt gemacht (ich bin auch blöd^^)
Aber wie kann ich jetzt zum Beispiel auf die BitBtns zugreifen?

[DeddyH]

So, hier mein Demoprogramm.

[twityzuz]

Das hilft mir iwie nicht weiter.
Nochmal:
Ich habe viele verschiedene BitBtns. Jetzt soll z.B. eine Zufallszahl ermittelt werden, z.B. 45. Jetzt soll BitButton45 zerstört werden.

Delphi-Quellcode:

var i:integer;
begin
i:=random(50);
{Jetzt soll BitBtn[i] ausgewählt werden}
BitButton[i].Destroy;

So, das möchte ich jetzt mit der OList machen.
Frage: Wie?

[DeddyH]

Einfach aus der Liste löschen. Der Konstruktor der Liste hat einen Parameter namens OwnsObjects, welcher per Vorgabe auf true steht. Das sorgt dafür, dass die Objekte beim Löschen aus der Liste automatisch freigegeben werden.

BTW: Niemals(!!!) Destroy direkt aufrufen, sondern immer Free.

[himitsu]

@twityzuz: geht mal in dein Profil
http://www.delphipraxis.net/profile.php?do=editprofile
und stell' dort die passende "Delphi"-Version ein.
Du nutzt doch Lazarus? (falls ich das nicht falsch gesehn hatte)

Einige Dinge sind in Lazarus/FreePascal ein bissl anders, als in Delphi und auch in den verschiedenen Delphi-Versionen unterscheidet sich manches.

[add] siehste ... jetzt hab ich mich doch verguckt. :oops:
Aber bei Delphi 7 hätte man sich z.b. die Generics sparen können und hätten dich nicht damit verwirrt. :angle2:

[DeddyH]

Delphi 7 wissen wir ja jetzt, aber trotzdem kann es nicht verkehrt sein, die Version im Profil anzuzeigen.

[Luckie]

Gerade heute gemacht: http://www.michael-puff.de/Programmi...utoRunsCls.pas

[DeddyH]

Und weshalb verwendest Du da TList und nicht gleich TObjectList?

[Luckie]

Weil mir nicht eingefallen ist, dass es TObjectList gibt. Und jetzt habe ich keine Lust mehr es umzuschreiben. ;)