ＬａｚａｒｕｓでStringGridを使ってみた

参考ページ
https://www.petitmonte.com/bbs/answers?question_id=6229
http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/00488.html

ポイント
行は
　・Row
列は
　・Col
幅を変えるのは
・StringGrid1.ColWidths[行]:=40;
行を追加するのは
　・StringGrid1.RowCount:=・StringGrid1.RowCount+1;
セルは
　・StringGrid1.Cells[列,行]:=’文字列’;
イベントは
　・TForm1.StringGrid1Click(Sender: TObject);
表（StringGrid）を選択（クリックした時）行（Row）と列（Col）を利用できる
　・TForm1.Edit1Change(Sender: TObject);
　　入力欄（Edit1）の内容を変更した時

procedure TForm1.FormCreate(Sender: TObject);
begin
   StringGrid1.ColCount:=5;
   StringGrid1.RowCount:=5;

   StringGrid1.Cells[1,0]:='No';
   StringGrid1.Cells[2,0]:='data1';
   StringGrid1.Cells[3,0]:='data2';
   StringGrid1.Cells[4,0]:='data3';

   StringGrid1.Cells[1,1]:='1';
   StringGrid1.Cells[2,1]:='1-1';
   StringGrid1.Cells[3,1]:='1-2';
   StringGrid1.Cells[4,1]:='1-3';

   StringGrid1.Cells[1,2]:='2';
   StringGrid1.Cells[2,2]:='2-1';
   StringGrid1.Cells[3,2]:='2-2';
   StringGrid1.Cells[4,2]:='2-3';

   StringGrid1.Cells[1,3]:='3';
   StringGrid1.Cells[2,3]:='3-1';
   StringGrid1.Cells[3,3]:='3-2';
   StringGrid1.Cells[4,3]:='3-3';

   StringGrid1.Cells[1,4]:='4';
   StringGrid1.Cells[2,4]:='4-1';
   StringGrid1.Cells[3,4]:='4-2';
   StringGrid1.Cells[4,4]:='4-3';

   StringGrid1.ColWidths[0]:=40;
   StringGrid1.ColWidths[1]:=40;
   StringGrid1.ColWidths[2]:=80;
   StringGrid1.ColWidths[3]:=80;
   StringGrid1.ColWidths[4]:=100;
     with  StringGrid1  do
  begin
    Edit1.Text := Cells[1,Row];
    Edit2.Text := Cells[2,Row];
    Edit3.Text := Cells[3,Row];
  end;
  button1.Caption:='削除';
  button2.Caption:='挿入';
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
  with  StringGrid1  do
   Cells[1,Row]:=Edit1.Text;
end;

procedure TForm1.Button1Click(Sender: TObject);
    var
      KeepTopRow, KeepRow: Integer;
      ARow: Integer;
    begin
    with  StringGrid1  do begin
      ARow:=Row;
      KeepRow := Row;
      KeepTopRow := TopRow;

      BeginUpdate;
      try
        DeleteRow(ARow);

        if RowCount > KeepRow then Row := KeepRow
        else Row := KeepRow - 1;
        TopRow := KeepTopRow;

        SetFocus;
      finally
        EndUpdate;
      end;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
//var
//        i : Integer;
//        k : Integer;
//begin
// https://www.petitmonte.com/bbs/answers?question_id=6229
// http://delfusa.main.jp/delfusafloor/archive/www.nifty.ne.jp_forum_fdelphi/samples/00488.html
  var
     i,InsCount,InsAt:integer;
  begin
     InsCount:=1;
     InsAt:=StringGrid1.Row;
     with StringGrid1 do
     begin
        RowCount:=RowCount+InsCount;
        For i:=RowCount-1 downTo InsAt+InsCount do
        begin
           Rows[i].assign(Rows[i-InsCount]);
        end;
        For i:=InsAt to InsAt+InsCount-1 do
        begin
           Rows[i].clear;
        end;
     end;

end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  with  StringGrid1  do
   Cells[2,Row]:=Edit2.Text;
end;

procedure TForm1.Edit3Change(Sender: TObject);
begin
  with  StringGrid1  do
   Cells[3,Row]:=Edit3.Text;
end;

procedure TForm1.StringGrid1Click(Sender: TObject);
begin
  with  StringGrid1  do
  begin
    Edit1.Text := Cells[1,Row];
    Edit2.Text := Cells[2,Row];
    Edit3.Text := Cells[3,Row];
  end;
end;