Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.08.26;
Скачать: CL | DM;

Вниз

Как удалить заданную строк или стобец в 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 и так уже есть. Зачем изобретать велосипед?


 
Rial ©   (2007-06-18 03:34) [9]

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

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


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


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

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2007.08.26;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.019 c
15-1185789204
Kerk
2007-07-30 13:53
2007.08.26
Клубом порулить хочется?


8-1162570365
Кевларвестов Семен
2006-11-03 19:12
2007.08.26
Чем бы выдернуть инфу из видео файла?


2-1185985576
Ruffian
2007-08-01 20:26
2007.08.26
Генератор списков паролей


9-1158691787
@!!ex
2006-09-19 22:49
2007.08.26
Текстурирование треугольников и еще куча преобразований.


15-1185273189
antonn
2007-07-24 14:33
2007.08.26
еще один вопросик по html/css