掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
imageファイルをif文などに組み入れて上手くループさせるには？ (ID：12274)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
投稿者の方のご要望からすると、配列を使いたいとのことなので var TileImages : array[1..2] of TImage; //[]ないはテキトーに変えてください ... procedure InitTileImage; var i : integer; TempCompo : TComponent; begin for i := 0 to 1 do begin compo := FindComponent('image'+IntToStr(i+1)); if (compo<>nil)and(compo is TImage) then TileImages[i+1] := TImage(compo); end; end; を起動時にでも１回呼び出して で if i=0 then begin image35.Picture.Assign(TileImages[i+1].Picture); // image35.picture:= TileImages[i+1].Picture; でいけるのではないでしょうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.