Objekte zur Laufzeit erstellen und löschen

[Khabarakh]

Zitat von Peinhard:

Zitat von Khabarakh:

Auch eine while-Schleife würde nichts ändern. Es wird zwar keine Exception ausgelöst, aber lediglich jedes zweite Item gelöscht.

Das hab' ich so pauschal auch nicht behauptet

Aber auch nicht verneint, also habe ich verneint .

Es gäbe auch noch eine Alternative, bei der die Schleifenrichtung irrelevant ist, allerdings auch wieder etwas ineffektiver:

Delphi-Quellcode:

for i := 0 to List.Count - 1 do
  ThrowIntoGarbage(List[0]);

[edit]Entspricht der Lösung von jbg weiter oben. [/edit]

PS: Das halte ich für einen groben Designfehler in der VCL. Mit einer einfachen Control-Collection-Klasse würde ein "Controls.Clear" genügen und alle wären zufrieden.

[Sir Rufo]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin
  while Panel1.ControlCount > 0 do
  begin
      showmessage(Panel1.Controls[0].name);
      Panel1.Controls[0].free;
      Application.ProcessMessages;
  end;
end

Was haltet ihr denn von dieser Lösung ...

Da braucht kein Compiler irgendwas optimieren und die Diskussionen werden gespart

cu

Oliver

[Peinhard]

Zitat von Khabarakh:

Zitat von Peinhard:

Das hab' ich so pauschal auch nicht behauptet

Aber auch nicht verneint, also habe ich verneint .

Aber die pauschale Verneinung ist ja auch wieder nicht richtig!

Und dein sowie das Beispiel von Rufo Sir zeigt zu allem Überfluss auch noch, daß es doch 'von vorne' geht, und zwar sowohl mit while als auch mit for. Halten wir doch für die interessierte Nachwelt fest, daß man von vorne nie das 'i-te', sondern immer nur das '0-te' Element wegwuschen darf - am effektivsten aber ist und bleibt for 'von hinten', da sich die Liste dabei nicht ständig neu justieren muß und keine while-Bedingung bei jedem Durchlauf neu geprüft werden muß.

Feierabend!

[Muetze1]

Zitat von Sir Rufo:

Da braucht kein Compiler irgendwas optimieren und die Diskussionen werden gespart

Das ist aber von der Ausführungsgeschwindigkeit die langsamste Variante, da er so mit jedem gelöschten Element erstmal alle nachfolgenden Elemente eins nach vor schieben muss. Dieser Weg ist am uneffektivsten. Wenn, dann so und es läuft auch schnell ab:

Delphi-Quellcode:

  while Panel1.ControlCount > 0 do
  begin
    showmessage(Panel1.Controls[Pred(Panel1.ControlCount)].name);
    Panel1.Controls[Pred(Panel1.ControlCount)].free;
    Application.ProcessMessages;
  end;

/EDIT: Hat Peinhard ja doch schon erwähnt...