Controls suchen und löschen

[thomas2009]

Zitat von Uwe Raabe:

Lösung: lass die Schleiife rückwärts laufen

Dann passiert nichts :

Delphi-Quellcode:

var
i : Integer;
begin
for i:=self.ComponentCount-1 downto 0 do begin
if self.Components[i] is TImage then
self.Components[i].Free;
end;
end;