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

Einzelnen Beitrag anzeigen

a.def
(Gast)

n/a Beiträge
 
#8

AW: Mehrere Images --> Imagex ???

  Alt 31. Mär 2017, 21:22
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].
  Mit Zitat antworten Zitat