TObjectList

[DeddyH]

Das habe ich doch gerade gezeigt. Objektliste erstellen, Objekt erstellen und mit TObjectList.Add() der Liste hinzufügen.

[twityzuz]

MyList.Add(BitBtn47); So habe ich das jetzt gemacht, dann kommt eine Fehlermeldung von Windows:

Zitat:

Zugriffsverletzung bei Adresse 004133DF in Modul 'Project2.exe'. Lesen von Adresse 00000008.

Was jetzt?

[jaenicke]

Du hast MyList nicht erstellt bevor du es verwendet hast.

[DeddyH]

Wenn es einen Moment Zeit hat: ich schreibe gerade ein kleines Beispielprogramm in Delphi 7.

[twityzuz]

Jetzt funktionierts; Aber wie benutze ich das Teil jetzt? Also mit Index und so?

[stahli]

Trotz rotem Kasten, wegen der vielen Mühe...

Sieht so aus, als ob Du Deine Liste zwar definiert aber nicht instanziiert (erzeugt) hast.

Setze einen Haltepunkt in Deine Zeile und sieh Dir MyList an. Wird vermutlich NIL sein.

Du musst Deiner List-Variablen vorher noch eine Liste zuweisen: MyList := TObjectList.Create; Jetzt kannst Du mit "der Liste" (besser gesagt mit dem Objekt der Klasse "TObjectList", das in der Variable MyList zugeweisen ist) arbeiten.
Im Spachgebrauch sagt man nun, MyList ist eine Liste. Ihr muss aber zuvor ein Instanz einer List (das was mit Create irgendwo im Hauptspeicher erzeugt wird) zugewiesen werden. Vorher ist NIL (also nichts) zugewiesen und man kann die Liste nicht benutzen.

[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.