Imageの表示について

解決

maru 2006-01-26 03:10:06 No: 19835

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

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

倒壊 2006-01-26 03:51:27 No: 19836

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

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-26 07:32:03 No: 19837

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

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