Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> StringGrid - как удалить строку в run-time 
:(
    Опции темы
Vit
Дата 17.11.2002, 10:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Сабж собственно


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
rhf
Дата 17.11.2002, 14:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 51
Регистрация: 13.8.2002

Репутация: нет
Всего: нет
наверное придеться смещать все содержимое Грида
что-то типа этого
Код

with StringGrid do
begin
  for i:=n to RowCount-1 do Rows[i]:=Rows[i+1];
  RowCount:=RowCount-1;
end;


n - номер удаляемой строки

вот только нужно проверить... удалит ли он сам лишнюю строку из Rows
PM MAIL   Вверх
Vit
Дата 17.11.2002, 14:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Да уж, удобно ничего не скажешь  :angry:


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Song
Дата 17.11.2002, 22:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Sysman.ru
***


Профиль
Группа: Участник
Сообщений: 1095
Регистрация: 2.6.2002

Репутация: 2
Всего: 4
Можно сделать наследника от TCustomGrid. А у последнего есть метод - DeleteRow()


--------------------
Прежде чем сказать "Невозможно", подумай, прав ли ты
PM WWW ICQ   Вверх
Vit
Дата 18.11.2002, 00:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Спасибо, Song! Это действительно то что нужно, для удаления текущей строки я сделал так:

Код

Type TFakeGrid=class(TCustomGrid);

procedure TForm1.MyDelete(Sender: TObject);
begin
 TFakeGrid(Grid).DeleteRow(Grid.row);
end;


Всё работает замечательно.


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Fantasist
Дата 19.11.2002, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй
***


Профиль
Группа: Участник Клуба
Сообщений: 1517
Регистрация: 24.3.2002

Репутация: нет
Всего: 41
Цитата(Vit @ 17.11.2002, 16:35)
Код

Type TFakeGrid=class(TCustomGrid);

procedure TForm1.MyDelete(Sender: TObject);
begin
 TFakeGrid(Grid).DeleteRow(Grid.row);
end;


Всё работает замечательно.

Точно. Я кажись тоже когда-то так делал. Или это был не я?  :)
Это я к тому, что до сих пор гадаю, почему они не сделали этот метод public?


--------------------
Волны гасят ветер...
PM MAIL   Вверх
Vit
Дата 19.11.2002, 13:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Цитата(Fantasist @ 18.11.2002, 18:21)
Это я к тому, что до сих пор гадаю, почему они не сделали этот метод public?

Знаешь, я уже со счёта сбился, сколько таких вот методов "похоронено" в VCL...


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
Fantasist
Дата 19.11.2002, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Лентяй
***


Профиль
Группа: Участник Клуба
Сообщений: 1517
Регистрация: 24.3.2002

Репутация: нет
Всего: 41
Цитата(Vit @ 19.11.2002, 05:20)
Знаешь, я уже со счёта сбился, сколько таких вот методов "похоронено" в VCL...

Да? Слушай, а ты их тогда все собери, и выпусти апгрейданную VCL.


--------------------
Волны гасят ветер...
PM MAIL   Вверх
Dapo
Дата 19.11.2002, 18:00 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
Может быть потому, что кроме DrawGrid и StringGrid есть еще и DBGrid? В случае с последним выше приведенный код работает как-то странно (удаляет последнюю строку в таблице).
  Вверх
Vit
Дата 19.11.2002, 22:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Vitaly Nevzorov
****


Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

Репутация: 48
Всего: 207
Цитата(Guest @ 19.11.2002, 01:00)
Может быть потому, что кроме DrawGrid и StringGrid есть еще и DBGrid? В случае с последним выше приведенный код работает как-то странно (удаляет последнюю строку в таблице).

А причём здесь одно к третьему? Речь идёт не об изменении TCustomGrid, а только TStringGrid - который к TDBGrid не имеет никакого отношения


--------------------
With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0841 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.