掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
表の中の計算結果を表示するには？ (ID：10153)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
CSVGRID は知りませんので TStringGrid の場合について回答します。 各列の合計を求める場合のどの部分がわかりませんか？ ・数値の文字列を数値に変換する → Val() などが使える。文字列がないときも判断できる ・数値に変換できたら足し算をして和を求める ・それを表示する 例えば、５ｘ５の表は 行が０〜４ 列が０〜４ ですから各列の和をその列の６番 目（Rowが５）に表示するには以下のようにします。数値は整数を仮定しています。 また、未記入であってもVal()でOKです。 procedure TForm1.Button1Click(Sender: TObject); var iCol,iRow,Sum,value,code:integer; begin for iCol := 0 to 4 do begin Sum := 0; for iRow := 0 to 4 do begin Val(StringGrid1.Cells[iCol,iRow],value,code); if code = 0 then Sum := Sum + value; end; StringGrid1.Cells[iCol,5] := IntToStr(Sum); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.