Prüfen, wieviele Panels auf der form sind und löschen

[chrisw]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I:= ComponentCount-1 downto 0 do
    if Components[I] is TPanel then
      TPanel(Components[I]).Free;
end;