Удаление и добавление столбцов и колонок

Вставка и удаление строк в StringGrid

2017-08-11T18:43:01+07:00

Автор: Dennis Passmore

Поскольку свойство Cols[x] компонента TStringGrid реально является компонентом TStrings, все методы TStrings применимы также и к Cols[x].

Недавно в интернете я нашел реализацию расширенных функций TStringGrid:

Подробнее...

Вставка строки в TStringGrid

2017-08-11T18:44:33+07:00

Code:

procedure SGInsertRow(SG: TStringGrid; NewRow: Integer);

var

i: Integer;

begin

if NewRow < 0 then

NewRow := 0; // либо 1, задайте нужное вам поведение

with SG do

begin

RowCount := RowCount + 1;

if NewRow < RowCount - 1 then

begin

for i := RowCount - 1 downto NewRow + 1 do

Rows[i].Assign(Rows[i - 1]);

end;

Rows[NewRow].Clear;

end;

Добавление колонки в StringGrid

2017-08-11T18:41:49+07:00

Code:

Procedure GridAddColumn(StrGrid: TStringGrid; NewColumn: Integer);

Var Column: Integer;

begin

StrGrid.ColCount := StrGrid.ColCount+1;

For Column := StrGrid.ColCount-1 downto NewColumn do

StrGrid.Cols[Column].Assign(StrGrid.Cols[Column-1]);

StrGrid.Cols[NewColumn-1].Text := '';

end;

Подробнее...

Как удалить строку в StringGrid в run-time?

2017-08-11T18:39:18+07:00

Можно сделать наследника от TCustomGrid. А у последнего есть метод - DeleteRow.

Автор: Song

Например удаление текущей строки:

Code:

Type TFakeGrid=class(TCustomGrid);

{©Drkb v.3(2007): www.drkb.ru,

®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}

procedure TForm1.MyDelete(Sender: TObject);

begin

TFakeGrid(Grid).DeleteRow(Grid.row);

end;

Подробнее...

Очистить ячейки в TStringGrid

2017-08-11T18:44:54+07:00

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

i, k: Integer;

begin

with StringGrid1 do

for i := 0 to ColCount - 1 do

for k := 0 to RowCount - 1 do

Cells[i, k] := '';

end;

Подробнее...

Удаление колонки в StringGrid

2017-08-11T18:40:33+07:00

Code:

Procedure GridRemoveColumn(StrGrid: TStringGrid; DelColumn: Integer);

Var Column: Integer;

begin

If DelColumn <= StrGrid.ColCount then

Begin

For Column := DelColumn To StrGrid.ColCount-1 do

StrGrid.Cols[Column-1].Assign(StrGrid.Cols[Column]);

StrGrid.ColCount := StrGrid.ColCount-1;

End;

end;

Подробнее...