Как удалить заданную строк или стобец в StringGrid

← →
igramnet (2007-06-17 14:17) [0]

Как удалить заданную строк или стобец в StringGrid. ЖЕлательно реализовать это не через функцию или процедуру.

← →
Kolan © (2007-06-17 14:58) [1]

> не через функцию или процедуру

А как?

← →
Rial © (2007-06-17 15:02) [2]

> [0] igramnet (17.06.07 14:17)
> ЖЕлательно реализовать это не через функцию или процедуру.

На чем основано столько странное желание ?

procedure DeleteRow(Const sgValue : TStringGrid; Const nIndex : Integer);
Var
I : Integer;
J : Integer;
begin
With sgValue do behin
For J:=nIndex to RowCount - 2 do
For I:=0 to ColCount - 1 do
Cells[I, J] :=Cells[I, J + 1];
RowCount :=RowCount - 1;
end; //With sgValue
end;

← →
Rial © (2007-06-17 15:06) [3]

Любитель меток %)

Label
lbDeleteRow;
Label
lbRet;
Var
sgTmp : TStringGrid;
nTmp : Integer;
I : Integer;
J : Integer;

...
goto lbDeleteRow;
lbRet:
...
lbDeleteRow :
With sgTmp do behin
For J:=nTmp to RowCount - 2 do
For I:=0 to ColCount - 1 do
Cells[I, J] :=Cells[I, J + 1];
RowCount :=RowCount - 1;
end; //With sgValue
goto lbRet;
...

← →
Kolan © (2007-06-17 15:44) [4]

Может имеется ввиду через FakeGrid&#133

← →
igramnet (2007-06-18 00:27) [5]

Ну а зачем тогда такой параметр StringGrid1.Colls.Delete ?

← →
Германн © (2007-06-18 00:36) [6]

> igramnet (18.06.07 00:27) [5]
>
> Ну а зачем тогда такой параметр StringGrid1.Colls.Delete
> ?
>

Это не параметр, а процедура.

← →
Германн © (2007-06-18 02:16) [7]

Да и кстати не имеющая ни малейшего отношения к сабжу.

← →
Германн © (2007-06-18 02:19) [8]

> Rial © (17.06.07 15:02) [2]
>
> > [0] igramnet (17.06.07 14:17)
> > ЖЕлательно реализовать это не через функцию или процедуру.
>
>
> На чем основано столько странное желание ?
>
> procedure DeleteRow(Const sgValue : TStringGrid; Const nIndex
> : Integer);
>

Метод DeleteRow в TStringGrid и так уже есть. Зачем изобретать велосипед?

> [8] Германн © (18.06.07 02:19)
> Метод DeleteRow в TStringGrid и так уже есть. Зачем изобретать
> велосипед?

Не пользовался никогда почти табличкой, сори.
Написал, что на ум пришло по памяти.
Тем более, ему без процедур надо. :-)

> Rial © (18.06.07 03:34) [9]
>
> > [8] Германн © (18.06.07 02:19)
> > Метод DeleteRow в TStringGrid и так уже есть. Зачем изобретать
> > велосипед?
>
> Не пользовался никогда почти табличкой, сори.

Я так и понял :)

← →
igramnet (2007-06-18 10:14) [11]

Всем спасибо.

Как удалить заданную строк или стобец в StringGrid Найти похожие ветки