Code vereinfachen

[Sharky]

Oder diese Variante von Chackotays Code:

Delphi-Quellcode:

var
  i: integer;
begin
  for i:=0 to frmMain.ComponentsCout-1 do
  begin
    if frmMain.Components[i] is TPanel then
    begin
      (frmMain.Components[i] as TPanel).Visibe := (frmMain.Components[i] as TPanel).Tag = cbAuswahl.ItemIndex+1 ;
    end;
  end;
end;