Aus der
Vcl.Controls.pas (Destruktor von TWinControl):
Zitat:
Delphi-Quellcode:
I := ControlCount;
while I <> 0 do
begin
Instance := Controls[I - 1];
Remove(Instance);
Instance.Destroy;
I := ControlCount;
end;
Besser erst nachsehen, bevor man Behauptungen aufstellt. Ich hatte mir vor Jahren mal die Mühe gemacht, seit wann das so ist, und konnte ähnlichen Code bereits in Delphi 6 finden, ältere Versionen hatte ich nicht untersucht.