Objekte zur Laufzeit erstellen und löschen

[jbg]

Zitat von bwolf:

Delphi-Quellcode:

begin
  intI := 0;
  while intI < 9 do
  begin
      cb := TCheckBox.Create(self);
      intI := intI + 1;

Schon mal was von "for intI := 0 to 8 do" gehört?

Zitat:

Delphi-Quellcode:

begin
  i := 0;
  while i < Panel1.ControlCount do
  begin
      showmessage(Panel1.Controls[i].name);
      Panel1.Controls[i].free;
      Application.ProcessMessages;
      i := i+1;
  end;
end

Zitat:

Das seltsame ist, das nicht alle Checkboxen entfernt werden, sonder nur jede 2.

Aber genau das sagst du dem Compiler, dass er das so machen soll.

Du musst deinen Code nur einmal für zwei Checkboxen durchspielen:
Mit dem ersten Panel1.Controls[i].Free löscht du das 0. Control. Das 1. Control rückt nun auf den Platz des 0. Controls, das 2. auf den des 1., ....
Nun erhöhst du i um eins und löscht danach das 1. Control. Es gibt aber bereits ein neues 0. Controls, das du nun auslässt.

Entweder lässt du das erhöhen von i weg, oder durchäufst die Controls von Count-1 bis 0.

Delphi-Quellcode:

while Panel1.ControlCount > 0 do
  Panel1.Controls[0].Free;

Das Application.ProcessMessages sollte man vorsichtig einsetzen, denn es kann leicht zu einem ungewollten Programmablauf führen, wenn der Benutzer dazwischenfunkt.