Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#14

AW: Thread Verständnis Frage

  Alt 18. Nov 2010, 16:17
@Klause01

bist Du sicher ... ich kann mir nicht vorstellen daß die Threads sich bei Terminierung aus der Objektliste entfernen.

Delphi-Quellcode:
Var
o:TObjectList<TButton>;

procedure TForm1.Button1Click(Sender: TObject);
var
  b:TButton;
begin
   o:=TObjectList<TButton>.Create;
   o.OwnsObjects := true;

   o.Add(TButton.Create(self));
   o.Add(TButton.Create(self));
   b := o[0];
   b.Free;
   Caption := IntToStr(o.Count);
// knallt natürlich o[0].Parent := self;
end;
Thomas Wassermann H₂♂
Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
  Mit Zitat antworten Zitat