掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
for文とwith文を使って複数のStringGridに値を書き込むには (ID：4866)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ほとんどどしろうとで、長いこと悩んでいます。 フォームが同一の複数のStringGrid（９ヶ）にfor文とwith文を使ってデータを書き込みたいため、with文に変数を割り当てようとしていますが、withの次の文（Cells[0,0]:= '';でCellsが'定義されていない'というエラーが出ます。どうしたらよいか教えて下さい。 現在のロジックは以下の通りです。 for J:=1 to 9 do begin StrGrid:= FindComponent('DoutDlg.StringGrid'+Format('%d',[J])); With StrGrid do begin Cells[ 0,0]:= ''; Cells[ 1,0]:= '展開角(deg)'; Cells[ 2,0]:= 'Ｒ（負）(mm)'; Cells[ 3,0]:= 'Ｚ（負）(mm)'; for i:=1 to GNTH3[J] do begin Cells[ 0,i]:= IntToStr(i); Cells[ 1,i]:= FloatToStr(TH[J,i]*DEG); Cells[ 2,i]:= FloatToStr(RL[J,i]); Cells[ 3,i]:= FloatToStr(ZL[J,i]); end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.