Delphiでコンポーネント名を変数にしたいのですが、どうすればいいでしょうか？

お世話になります。
Delpho10 Professionalを使っています。
次にようなプログラムを作りました。
//********************
case Index of
0:begin //Form1から呼び出し
Edit1.Text := Form1.StringGrid1.Cells[1,i];
Edit2.Text := Form1.StringGrid1.Cells[2,i];
Edit3.Text := Form1.StringGrid1.Cells[3,i];
Edit4.Text := Form1.StringGrid1.Cells[4,i];
end;
1:begin //Form4から呼び出し
Edit1.Text := Form4.StringGrid3.Cells[1,i];
Edit2.Text := Form4.StringGrid3.Cells[2,i];
Edit3.Text := Form4.StringGrid3.Cells[3,i];
Edit4.Text := Form4.StringGrid3.Cells[4,i];
end;
2:begin//Form5から呼び出し
//

end;
//****************
スッキリとさせるために
x := Form1.StringGrid1;として
Edit1.Text := (x).Cells[1,i];
Edit2.Text := (x).Cells[2,i];

x := Form4.StringGrid3;として
Edit1.Text := (x).Cells[1,i];
Edit2.Text := (x).Cells[2,i];

というような書き方はできないでしょうか？

質問者からの補足コメント

• 

  すばやい回答ありがとうございます。
  
  変数の型をどうしたらいいのか...
  私にはちょっとわからないです。
  var
  x:TForm1.StringGrid1;にしてもうまくいきません。

  No.1の回答に寄せられた補足コメントです。 補足日時：2018/03/14 15:38

• 

  >TForm1.StringGrid1は変数であって、型ではないと思いますが…違いますかね？
  
  あっ、確かにそうです。
  
  ありがとうございます。

  No.2の回答に寄せられた補足コメントです。 補足日時：2018/03/14 19:53

• 

  どうやって調べるんでしょうか？

  No.3の回答に寄せられた補足コメントです。 補足日時：2018/03/16 08:52

• 

  どこにどう書けばいいのか...

  No.4の回答に寄せられた補足コメントです。 補足日時：2018/03/16 08:53

No.5 ベストアンサー 回答者： tknakamuri 回答日時： 2018/03/16 12:18

>どこにどう書けばいいのか...

ハンドラの冒頭、begin の前に

var
x: TStringGrid;

とかくだけ。簡単です。


この辺は基本の基本。分かってないと他も厳しいですよ。

この回答へのお礼

ありがとうございます。
x: TStringGrid;の部分でエラーになり、この質問分は補足に書いたような方法で解決したのですが、別のところで同様の書き方が必要になり、いろいろ試したところ、エラーになる原因がわかりました。
このコードを書くFormはStringGridを使っておらず、usesのところにGridsを記入していませんでした。
usesにGridsを追加して
ｘ := Form1.StringGrid1;
または
ｘ := Form4.StringGrid3;
としたところ、エラー発生せずにコンパイルできました。

お礼日時：2018/03/24 14:53

No.4 回答者： tknakamuri 回答日時： 2018/03/15 18:17

文字列グリッドの型名は

TStringGrid

です。

この回答へのお礼

みなさん、お時間を取っていただきありがとうございました。
（ここでまとめてお礼させてください）

グローバル変数を使うことにしました。
（考えていた方法は私にはハードルが高いですし、今回はグローバル変数を使った方がプログラムがわかりやすそうです）
設定用Form呼び出し前に変更前データをグローバル変数にセットして、Formをクローズした後に変更後のグローバル変数の値をStringGridにセットするようにしようと思います。

お礼日時：2018/03/16 09:19

No.3 回答者： Tacosan 回答日時： 2018/03/15 00:12

この質問文には明記されていないので, 自力で TForm1.StringGrid1 の型を調べてください.

No.2 回答者： Wr5 回答日時： 2018/03/14 19:40

>var

>x:TForm1.StringGrid1;

TForm1.StringGrid1は変数であって、型ではないと思いますが…違いますかね？

No.1 回答者： Tacosan 回答日時： 2018/03/14 15:04

変数の型 (と名前) が適切であれば, 例えば

case Index of
0: x := Form1.StringGrid1;
1: x := Form4.StringGrid3;
// 以下省略
end; // case Index に対する end
Edit1.Text := x.Cells[1,i];
// など
とできるような気がします.