環境はDelphi 6。 グリッドはとりあえずTStringGridを使う。 プログラム中でグリッドに列を挿入したいとき、 procedure InsertCol(G: TStringGrid; c: Integer); var i, j: Integer; begin G.ColCount := G.ColCount + 1; for i := G.ColCount - 1 downto c …