Code vereinfachen

[CalganX]

Hi Luckie,
so auf die Stelle, untested und unueberlegt...

Delphi-Quellcode:

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

Hope that helps,
Chris

[edit]+1 deshalb, weil du sonst die ganzen 0en mit drinhast und das waere ja nicht so toll... [/edit]