델파이 스트링그리드 삭제/삽입

델파이 스트링그리드 삭제/삽입

 

// 줄 삭제

procedure StringGridDeleteRow(StringGrid: TStringGrid; Position: integer);

var

  i: integer;

begin

  for i := Position to StringGrid.RowCount - 1 do StringGrid.Rows[i] := StringGrid.Rows[i + 1];

  StringGrid.RowCount := StringGrid.RowCount - 1;

end;

 

// 줄 삽입

procedure StringGridInsertRow(StringGrid: TStringGrid; Position: integer);

var

  i: integer;

begin

  StringGrid.RowCount := StringGrid.RowCount + 1;

  for i := StringGrid.RowCount - 1 downto Position + 1 do StringGrid.Rows[i] := StringGrid.Rows[i - 1];

  StringGrid.Rows[Position].Clear;

end;

 

// 행 삭제

procedure StringGridDeleteCol(StringGrid: TStringGrid; Position: integer);

var

  i: integer;

begin

  for i := Position to StringGrid.ColCount - 1 do StringGrid.Cols[i] := StringGrid.Cols[i + 1];

  StringGrid.ColCount := StringGrid.ColCount - 1;

end;

 

// 행 삽입

procedure StringGridInsertCol(StringGrid: TStringGrid; Position: integer);

var

  i: integer;

begin

  StringGrid.ColCount := StringGrid.ColCount + 1;

  for i := StringGrid.ColCount - 1 downto Position + 1 do StringGrid.Cols[i] := StringGrid.Cols[i - 1];

  StringGrid.Cols[Position].Clear;

end;