Dynamisch erzeuge Labels über Pointer in TList löschen.

[Cmon]

Hallo,

ich programmiere momentan für den Infomatikunterricht an einem Bruchrechentrainerprogramm.
Ich benutze Delphi 3.0 und bin eigentlich schon so gut wie fertig, aber gerade komme ich nich.

Ich habe es bis jetzt folgendermaßen:

Delphi-Quellcode:

var gList:TList;


procedure TForm1.FormActivate...();
begin;
   gList := TList.Create();
end;

später wenn das Label erzeugt wird

Delphi-Quellcode:

   { Label dynamisch erzeugen }
   var neuesLabel:TLabel;
   neuesLabel := TLabel.Create(self);

   [...]
   
   { Label der Liste hinzufügen }
   gList.Add (@neuesLabel);

Später möchte ich die Labels der Liste wieder löschen:

Delphi-Quellcode:

   gList.items[0].free() // das funktioniert allerdings nicht

   ShowMessage(gList.items[0].Name); // auch das funktioniert nicht !

Ich bin leider, was Pointer angeht nicht alzu bewandelt und würde mich freuen,
wenn ihr mir Tipps geben könntet wo mein Fehler liegt.


Viele Grüße
Simon

[DGL-luke]

1. Nimm anstatt der TList eine TObjectList

2. Caste richtig:

Delphi-Quellcode:

TLalbel(gList.items[0]).free();

ShowMessage(TLabel(gList.items[0]).Name);

[Cmon]

Hey,

TObjectList funktioniert leider nicht:

Delphi-Quellcode:

Undefinierter Bezeichner: 'TObjectList'.

[Muetze1]

TObjectList gibt es erst ab Delphi 4. Nutze den 2. Tipp und setz den Typecast richtig.

[Cmon]

Ich hab es jetzt folgendermaßen probiert:

Delphi-Quellcode:

gList.Add(@neuesZaehlerLabel);

[...]

ShowMessage(TLabel(gTemporaereKomponenten.Items[0]).Name);

Jetzt bekomme ich aber immer eine Exception der Klasse EAccessViolation..

[DGL-luke]

Dann lass das @ weg beim hinzufügen, evtl. auf Pointer casten.

[SirThornberry]

es liegt definitiv an dem @ beim hinzufügen. Eine Objectinstanz ist bereits ein Pointer. Und mit dem @ holst du dir einen Pointer auf den Pointer.

[Cmon]

Hallo,

ich hab das nun geändert, jedoch erhalte ich bei:

Delphi-Quellcode:

      ShowMessage(TLabel(gList.Items[0]).Name);

Eine Messagebox mit leerem Inhalt

http://home.arcor.de/ewe57/ShowMessage.jpg

Viele Grüße
Simon

[SirThornberry]

verständlich! Schließlich weißt du deinem Label nie einen Namen zu. Somit hat es keinen Namen (der Name der Variablen ist nunmal nicht gleich dem Namen der Komponente)

[Cmon]

:wall: oh man, klar vielen Dank.

Jedoch eins versteh ich noch nicht. Bei machen Labels erhalte ich eine Exception der Klasse EAccessViolation.
Bei anderen jedoch nicht, woran liegt das ?

Viele Grüße