Thema: FreePascal Mehrere Images --> Imagex ???

Einzelnen Beitrag anzeigen

Maurooon

Registriert seit: 7. Dez 2016
70 Beiträge
 
#7

AW: Mehrere Images --> Imagex ???

  Alt 31. Mär 2017, 21:19
Vergiss das Array.

=>

Delphi-Quellcode:
 for i := 1 to 5 do // begin in der nächsten Zeile. Das hier ist schließlich DELPHI ;)
  begin
   if Assigned((FindComponent('Image' + SysUtils.IntToStr(i)) as TImage))
    (FindComponent('Image' + SysUtils.IntToStr(i)) as TImage).Visible := True;
  end;
Ich würde das Ganze aber eher über eine TObjectList<TImage> machen.
Das ist mir viel zu kompliziert ehrlich gesagt. Könnten Sie mir das näher erklären oder eine etwas leichtere Variante vorschlagen? Mit FindComponent oder SysUtils habe ich noch nie gearbeitet.
"One of the basic rules of the universe is that nothing is perfect. Perfection simply doesn't exist... Without imperfection, neither you nor I would exist." - Stephen Hawking
  Mit Zitat antworten Zitat