Thema: Delphi Problem bei TStringList

Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#10

AW: Problem bei TStringList

  Alt 11. Jun 2014, 23:08
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;
Markus Kinzler

Geändert von mkinzler (11. Jun 2014 um 23:15 Uhr)
  Mit Zitat antworten Zitat