Noch mal eine kurze Zusammenfassung:
1.) Mach eine Methode der Form aus der (freien) Prozedur.
2.) Man sollte keine Festen Referenzvariablen referenzieren (Form1).
3.) Vergessse with
4.)
Delphi-Quellcode:
procedure TForm1.Marmelade(ShowX: array of Byte);
var
i; Integer;
o: TComponent;
begin
for i := Low(ShowX) to High(ShowX) do
begin
o := FindComponent('Show'+IntToStr(i+1));
if ShowX[0] = 1 then o.Visible := True else o.Visible := False;
end;
end;