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

...я не нашел никаких методов для вставки и удаления строк...

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

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

    Создано:           Dennis Passmore
                       1929 Mango Tree Drive
                       Edgewater, Fl. 32141
                       CIS: 71640,2464
                       Март 1, 1996

Данный код свободен в использовании при одном условии: в исходном коде должна присутствовать указанная выше кредитка со ссылкой на автора.

Примечание по использованию кода:
Всякий раз при удалении Row (строки) или Column (колонки) проверяйте наличие и удаляйте любые объекты, которые могли быть назначены любой ячейке в строке или колонке, которые вы собираетесь удалять, поскольку данный код не может знать ни размера, ни типа ассигнованных ими объектов.

unit GridFunc;

interface

uses

Sysutils, WinProcs, Grids;

procedure InsertRow (Sender: TStringGrid; ToIndex: Longint);

procedure DeleteRow (Sender: TStringGrid; FromIndex: Longint);

procedure InsertColumn(Sender: TStringGrid; ToIndex: Longint);

procedure DeleteColumn(Sender: TStringGrid; FromIndex: Longint);

implementation

type

TCSGrid = class(TStringGrid)

private

public

procedure MoveRow (FromIndex, ToIndex: Longint);

procedure MoveColumn(FromIndex, ToIndex: Longint);

end;

procedure TCSGrid.MoveRow(FromIndex,ToIndex: Longint);

begin

RowMoved(FromIndex, ToIndex); { Защищенный метод TStringGrid }

end;

procedure TCSGrid.MoveColumn(FromIndex, ToIndex: Longint);

begin

ColumnMoved(FromIndex, ToIndex);{ Защищенный метод TStringGrid }

end;

procedure InsertRow(Sender: TStringGrid; ToIndex: Longint);

var

xx,yy: Integer;

begin

if ToIndex>=0 then

with TCSGrid(Sender) do

if (ToIndex<=RowCount) then

begin

RowCount := RowCount + 1;

xx := RowCount - 1;

for yy := 0 to ColCount - 1 do

begin

Cells[yy,xx] := ' ';

ObJects[yy,xx] := nil;

end;

if ToIndex<RowCount-1 then

MoveRow(RowCount-1,ToIndex);

end

else

MessageBeep(0)

else

MessageBeep(0);

end;

procedure DeleteRow(Sender: TStringGrid; FromIndex: Longint);

begin

if FromIndex>l;=0 then

with TCSGrid(Sender) do

if (RowCount>0)and(FromIndex<RowCount) then

begin

if (FromIndex<RowCount-1) then

MoveRow(FromIndex,RowCount-1);

Rows[RowCount-1].Clear;

RowCount := RowCount-1;

end

else

MessageBeep(0)

else

MessageBeep(0);

end;

procedure InsertColumn(Sender: TStringGrid; ToIndex: Longint);

var

xx,yy: Integer;

begin

if ToIndex>=0 then

with TCSGrid(Sender) do

if (ToIndex<=ColCount) then

begin

ColCount := ColCount + 1;

xx := ColCount - 1;

Cols[xx].BeginUpdate;

for yy := 0 to RowCount - 1 do

begin

Cells[xx,yy] := ' ';

ObJects[xx,yy] := nil;

end;

Cols[xx].EndUpdate;

if ToIndex<ColCount-1 then

MoveColumn(ColCount-1,ToIndex);

end

else

MessageBeep(0)

else

MessageBeep(0);

end;

procedure DeleteColumn(Sender: TStringGrid; FromIndex: Longint);

begin

if FromIndex>=0 then

with TCSGrid(Sender) do

if (ColCount>0)and(FromIndex<ColCount) then

begin

if (FromIndex<ColCount-1) then

MoveColumn(FromIndex,ColCount-1);

Cols[ColCount-1].Clear;

ColCount := ColCount-1;

end

else

MessageBeep(0)

else

MessageBeep(0);

end;

end.

- Dennis Passmore [000848]