ソースを簡略化させるためには

解決

うま 2004-11-11 02:53:27 No: 11724

お世話になっています。
Delphiの書式がわかりません。

例えばパネル1〜9のキャプションに名称をセットしたい場合、
下記のような感じで書けないのでしょうか。

ちなみに下記のものはpanel[i]部でコンパイルエラーになります。

For i:=1 to 9 do
begin
panel[i].Caption := 'パネル' + IntToStr(i);
end;

ACCESSにはあるのでDelphiでもできるのではといろいろやってみましたが
できませんでした。
どなたかご教授お願いします。

＠っしー 2004-11-11 03:17:10 No: 11725

※過去ログ等を漁ればいくらでも回答は得られるのですが、、、

For i:=1 to 9 do
begin
  try
    TPanel(FindComponent('panel' + IntToStr(I))).Caption := 'パネル' + IntToStr(I);
  except
    ShowMessage('パネル' + IntToStr(I) + ' <- そんなパネルないよ！');
  end;
end;

で、どうでしょ？

うま 2004-11-11 04:59:57 No: 11726

＠っしー様
レスありがとうございます。

>※過去ログ等を漁ればいくらでも回答は得られるのですが、、、
おっしゃるとおりです。すみません m(_ _)m

うまくいきました。ありがとうございました。