Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Вниз

Удаление строки в Stringgrid 


Rash   (2002-01-28 14:48) [0]

Подскажите, пожалуйста:
if (key=VK_DELETE)
then if (shift = ([ssCtrl]))
then begin
grid.rows[grid.row].delete(grid.row)
end
else grid.Cells[grid.col,grid.row]:="";
По ctrl-Del выдается ошибка - нельзя удалить колонку или строку.
Как здесь нужно использовать Delete? Или проще переприсвоить значения в сетке? (Сетка используется для ввода перечня деталей в заказе).



MBo   (2002-01-28 14:58) [1]

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1012079550&n=0



Rash   (2002-01-28 15:46) [2]

Спасибо! В принципе, так и думала. Получается, непосредственно удалить строку нельзя? А зачем тогда метод Delete?

В справке есть: TStringGridStrings.Delete



MBo   (2002-01-28 16:18) [3]

метод класса TStrings delete уничтожает 1 строку из списка - в данном случае это не работает, обращение или ко всей строке как к TStrings или к ячейке - String.
Вообще-то в TCustomGrid есть protected метод DeleteRow, недоступный у его наследников в лоб. Хитрость вот такая:
в своем модуле
THackGrid=class(TCustomGrid);

...
THackGrid(StringGrid1).DeleteRow(StringGrid1.Row);



Rash   (2002-01-28 18:13) [4]

Спасибо!!!




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.047 c
6-32300           Sectoid               2001-11-21 13:15  2002.02.11  
У меня есть исходный код HTML ки. Как мне его глянуть в нормальном виде (как страничку, а не как код)???


1-32195           Lord BDV              2002-01-28 19:58  2002.02.11  
Смена неменяемых цветов


14-32317          Denis P               2001-12-20 22:26  2002.02.11  
Легкие Деньги в Москве


1-32285           XX                    2002-01-28 17:12  2002.02.11  
Как сложить (сумировать) все ячейки определенного столбца?


1-32229           hwber                 2002-01-26 15:04  2002.02.11  
QuickReport руссифмцировать Preview?