お世話になります。
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];
というような書き方はできないでしょうか?
No.5ベストアンサー
- 回答日時:
>どこにどう書けばいいのか...
ハンドラの冒頭、begin の前に
var
x: TStringGrid;
とかくだけ。簡単です。
この辺は基本の基本。分かってないと他も厳しいですよ。
ありがとうございます。
x: TStringGrid;の部分でエラーになり、この質問分は補足に書いたような方法で解決したのですが、別のところで同様の書き方が必要になり、いろいろ試したところ、エラーになる原因がわかりました。
このコードを書くFormはStringGridを使っておらず、usesのところにGridsを記入していませんでした。
usesにGridsを追加して
x := Form1.StringGrid1;
または
x := Form4.StringGrid3;
としたところ、エラー発生せずにコンパイルできました。
No.1
- 回答日時:
変数の型 (と名前) が適切であれば, 例えば
case Index of
0: x := Form1.StringGrid1;
1: x := Form4.StringGrid3;
// 以下省略
end; // case Index に対する end
Edit1.Text := x.Cells[1,i];
// など
とできるような気がします.
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) マクロでテキストファイルを読み込んだ際の最終セルにデータと改行が含まれる問題の改善方法 2 2022/03/25 16:50
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) 【VBA】特定のワードが入っている行全体を塗りつぶしたい 4 2022/04/20 15:22
- Visual Basic(VBA) ExcelVBAで、index、match関数を使用して、指定範囲に出力したい 3 2022/10/18 21:53
- Visual Basic(VBA) 九九の答えの計算 3 2022/12/20 22:13
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Excel(エクセル) VBAで組み合わせ算出やCOUNTIFSの処理を高速化したいです。 4 2022/04/07 02:38
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
AIの登場でプログラマーたちが...
-
40代後半でゼロからのプログラ...
-
正規表現 URL抽出「 [\\/\\b]{0...
-
過剰なオブジェクト指向脳から...
-
CLispのloop内の挙動について
-
エアビーや、くらしのマーケッ...
-
本格的なWebアプリを公開する時...
-
プログラミング初心者です。 Wi...
-
プログラマーと学歴の関係性に...
-
pythonの画像の貼り付けについて
-
オブジェクト指向プログラミン...
-
プログラミングを教えたいです...
-
スカラーのベクトル微分
-
chatGPTで次々と質問をしていく...
-
そのまま使っただけなのに・・...
-
16x16のスプライトフォント
-
プログラミング未経験者(殆ど未...
-
VBAでパワーシェルを実行したい...
-
ImageMagickでgif画像の一部が...
-
楽しくて最高のプログラミング...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
タイムアウトする仕組みを作りたい
-
レコードセットにnullの場合
-
subsequentとnextの違いってな...
-
verilogのcase文
-
日付の重複
-
Verilog-HDLによる設計において
-
Verilogの文法
-
リスト間のアイテム移動について
-
Rubyプログラミングの課題につ...
-
EXCEL VBA 文字 アドレス 検...
-
Delphiでコンポーネント名を変...
-
delphi
-
TreeViewのTag情報取得
-
pascalでの二分探索(バイナリ...
-
直線検出のハフ変換プログラム(...
-
【FPGA】VHDLのprocessとevent
-
「for next」文と「if then els...
-
パスカル言語
-
整順リスト形式の英単語辞書(pa...
-
エクセルVBAついて ①if•••••the...
おすすめ情報
すばやい回答ありがとうございます。
変数の型をどうしたらいいのか...
私にはちょっとわからないです。
var
x:TForm1.StringGrid1;にしてもうまくいきません。
>TForm1.StringGrid1は変数であって、型ではないと思いますが…違いますかね?
あっ、確かにそうです。
ありがとうございます。
どうやって調べるんでしょうか?
どこにどう書けばいいのか...