Imageの表示について

解決

maru 2006-01-25 18:10:06 No: 19835 IP: 192.*.*.*

初歩的な質問ですみませんが、
Image1.Picture.LoadFromFile(????.jpg);
Image2.Picture.LoadFromFile(????.jpg);
Image3.Picture.LoadFromFile(????.jpg);
Image4.Picture.LoadFromFile(????.jpg);
.
.
のように多くの画像を表示したいのですが、これをfor文を使って
まとめて書くことはできないでしょうか？
ネットを検索しようと思ったのですが、何というキーワードで検索
すれば良いのかも分からなかったので・・・

よろしくご教授願います。

編集削除

倒壊 2006-01-25 18:51:27 No: 19836 IP: 192.*.*.*

初めまして、倒壊です。
こんな感じでどうでしょうか？

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  S: String;
begin
  for i := 1 to 5 do
  begin
    S := 'img' + IntToStr(i) + '.jpg';
    TImage(FindComponent('Image' + IntToStr(i))).Picture.LoadFromFile(S);
  end;
end;

編集削除

maru 2006-01-25 22:32:03 No: 19837 IP: 192.*.*.*

こんにちは。倒壊さん。
実行してみたところうまくいきました。
おかげでプログラムがかなりスッキリしました。

このような初歩的な質問に親切に回答いただきありがとうございます。
本当に助かりました！

編集削除