Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

igramnet © (2007-06-17 14:17:00)
Как удалить заданную строк или стобец в StringGrid. ЖЕлательно реализовать это не через функцию или процедуру.

igramnet (2007-06-18 10:14:00) [1]
Всем спасибо.

Германн (2007-06-18 03:47:00) [2]

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

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

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

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

Германн (2007-06-18 02:19:00) [4]

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

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

Германн (2007-06-18 02:16:00) [5]
Да и кстати не имеющая ни малейшего отношения к сабжу.

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

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

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

igramnet (2007-06-18 00:27:00) [7]
Ну а зачем тогда такой параметр StringGrid1.Colls.Delete ?

Kolan (2007-06-17 15:44:00) [8]
Может имеется ввиду через FakeGrid…

Rial (2007-06-17 15:06:00) [9]
Любитель меток %)

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;
...

Rial (2007-06-17 15:02:00) [10]
> [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;

Kolan (2007-06-17 14:58:00) [11]
> не через функцию или процедуру

А как?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »