löschen von Checkboxes!

[daNiii]

Programcode:

Delphi-Quellcode:

procedure tform1.checkboxes_destroy();
var

i: integer;
begin
i:= checkbox_anzahl;


      while 1 < i  do  begin
      i:= i-1;
      if Controls[i] is Tcheckbox then  begin
      tcheckbox(Controls[i]).Destroy;
      end;
end;
end;

Information:
checkbox_anzahl ist eine globale Variable (integer).
Die Checkboxes werden in einer Schleife mit hilfe einer Array-variable erstellt.
Deshalb kann ich nicht auf eine bestimmte Checkbox zugreifen.

Problem:
Ich möchte die erstellten checkboxes wieder löschen, doch es passiert garnichts.
Wo liegt das Problem?

LG Daniii

[DeddyH]

Wieso greifst Du dann nicht direkt auf die Array-Variable zu?

[Uwe Raabe]

In deinem Code nimmst du implizit an, daß die CheckBoxes in den ersten Controls[]-Einträgen liegen. Ist das wirklich so? Wenn ja, erübrigt sich die Abfrage, ob es eine CheckBox ist.

Weiterhin bleibt wengen "while 1 < i do" der Eintrag unter Controls[0] erhalten. Wenn du nur eine Checkbox hast, ändert sich also nichts.

Das Freigeben des Objekts sollte immer über Free, statt Destroy erfolgen (sollte aber trotzdem funktionieren).

Außerdem ist dabei der TypeCast überflüssig.

[uligerhardt]

Deine while-Konstruktion ist mir suspekt. Wenn ich dich recht verstanden habe, willst du einfach eine for-Schleife. Diese durchläufst du rückwärts, weil sich ja während des Durchlaufs ControlCount ändert:

Delphi-Quellcode:

procedure TForm1.checkboxes_destroy;
var
  i: Integer;
begin
  for i := ControlCount - 1 downto 0 do
    if Controls[i] is TCheckBox then
    begin
      Controls[i].Destroy;
    end;
end;

DeddyHs Frage bezüglich der Array-Variablen führt aber wahrscheinlich zu einer besseren Lösung.

HTH,
Uli.

[Angel4585]

Ich dachte immer Destroy soll man nicht direkt aufrufen, sondern free

[uligerhardt]

Zitat von Angel4585:

Ich dachte immer Destroy soll man nicht direkt aufrufen, sondern free

Man muss (wie so oft ) wissen, was man tut. Wenn man weiß, dass eine Objektreferenz nicht nil ist, kann man auch direkt Destroy aufrufen.

[daNiii]

danke uligerhardt!
ich habe jetzt deine Lösung verwendet und es funktioniert!

[DeddyH]

An Deiner Stelle würde ich aber mal überprüfen, ob keine Speicherlecks auftreten, was sich bei dynamisch erstellten Objekten immer empfiehlt.