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

Einzelnen Beitrag anzeigen

Maurooon

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

AW: Mehrere Images --> Imagex ???

  Alt 31. Mär 2017, 21:37
Dann nehmen Sie am besten meinen Vorschlag wie oben. Da kann eigentlich nichts schiefgehen und allemal besser als ein Array ist es auch.
Delphi-Quellcode:
 for i := 1 to 5 do
  begin
   if Assigned((FindComponent('Image' + SysUtils.IntToStr(i)) as TImage)) // "SysUtils." kann auch weggelassen werden
    (FindComponent('Image' + SysUtils.IntToStr(i)) as TImage).Visible := True;
  end;
Rand-Info: die Zählung eines Arrays beginnt bei 0. Ein Array ist also 0-basiert. Das erste Element in einem Array steuert man mit [0] an, nicht [1].
Okay, habe es hinbekommen. Vielen lieben Dank! Verstehen tue ich das zwar nicht hunterprozentig und in Ihrem Quelltext fehlt das then aber dafür war ich clever genug Was genau macht dieses Assigned und dieses FindComponent jetzt?
"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