Dynmaische Label finden

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