掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＳｔｒｉｎｇＧｒｉｄでの行の入れ替えを行うには？ (ID：10780)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いつもお世話になっております。 StringGridで１列目〜３列目に数字が記入されており、その３列の合計を４列目に出力すると同時に、４列目の数字が大きい順に行ごと並べ替えたいと思っています。以下のように記述しているのですが、うまく並べ替えることができず、困っています。教えていただければ幸いです。どうぞよろしくお願いいたします。 var sai:array[1..50]of integer; a,b,c,d,e:integer; goukeiten:integer; begin goukeiten:=0; for b :=1 to 50 do //４列目に１〜３列目の合計を出力。 begin for e:=1 to 3 do begin goukei:=goukei+strtointdef(stringgrid1.cells[e,b]) end; goukei:=0; end; for a :=1 to 50 do //４列目の数が大きい順に並べ替える。 begin sai[a]:=strtointdef(stringgrid1.cells[4,a],0); end; for d :=1 to 50 do begin for c:=d+1 to 50 do begin if sai[d]<sai[c] then begin stringgrid1.rows[51]:=stringgrid1.rows[d]; stringgrid1.rows[d]:=stringgrid1.rows[c]; stringgrid1.rows[c]:=stringgrid1.rows[51] end; end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.