StringGridに行の挿入 (ID:34107)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

Mr.XRAYです．以下は私が使用している方法です．

type
  TMyGrid = class(TStringGrid);

の様に定義して...

Windows XP(SP3) + Delphi5,6,7,2007-R2 Pro
Windwos Vista + Delphi2007-R2 Pro
全てで動作しています．
メモリ使用量とか，早そうとかは考えたことはありません．
もしかしたら，TStringList等に退避して戻す方法の方が高速かも知れません．

//===============================================
//  行の挿入
//  3行目に挿入
//===============================================
procedure TForm1.Button2Click(Sender: TObject);
var
    i : Integer;
    k : Integer;
begin
    k := 3;
    StringGrid1.RowCount := StringGrid1.RowCount+1;
    for i:=StringGrid1.RowCount-1 downto k+1 do begin
      TMyGrid(StringGrid1).RowMoved(i-1,i);
    end;
end;
//===============================================
//  行の削除
//  4行目を削除
//===============================================
procedure TForm1.Button3Click(Sender: TObject);
var
    i : Integer;
    k : Integer;
begin
    k := 4;
    for i:=k to StringGrid1.RowCount-1 do begin
      TMyGrid(StringGrid1).RowMoved(i+1,i);
    end;
    StringGrid1.RowCount := StringGrid1.RowCount-1;
end;

←解決時は質問者本人がここをチェックしてください。

戻る