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.