Dynmaische Label finden

[TheMiller]

@SirThornberry:
Ich stimme deiner signatur voll und ganz zu ;)

Nein im Ernst. Verstehe es. hast schon recht. Habs allerdings noch nichts getestet.

[mirage228]

Hi,

Du könntest auch TObjectList (ab Delphi 6) verwenden. Dann sparst Du Dir das manuelle Freigeben der Controls, da per default alle Objekte der TObjectList beim Zerstören mit freigegeben werden. Zudem musst Du beim Zugriff nicht auf TObject casten.

mfG
mirage228

[sniper_w]

@SirThornberry: Und so muss man sich am Ende nicht um alles kümmern...

Delphi-Quellcode:

type 
  TLabelList=class(TList)
    public
      procedure BeforeDestruction();override;
      procedure ClearLabelList();
  end;
//....


procedure TLabelList.ClearLabelList();
  var i:Integer;
      currentObject:TObject;
begin
  for i:=0 to Count-1 do
  begin
    currentObject:=TObject(Items[i]);
    currentObject.Free();
    Items[i] := nil;
  end;
  while Count>0 do Delete(0);
  Clear();
end;

procedure TLabelList.BeforeDestruction();
begin
  ClearLabelList(); 
  inherited;
end;