На собрании перед выпуском Windows'98 в компании Micro$oft участникам был задан странный вопрос:
- Если вы зашли на авиaлайнер и узнали, что ваша группа программистов была ответственна за составление программы, управляющей полетом вашего авиалайнера, сколько бы из вас немедленно выскочило из самолета?
Все подняли руки, кроме одного программиста. Когда его спросили, что бы он сделал, тот ответил, что он бы с удовольствием остался на борту. Когда его спросили почему, он ответил:
- А чего мне бояться полета? С нашей программой этот самолет даже не доехал бы до взлетной полосы.
Существует одно свойство, не упомянутое в файлах помощи (оплошность, господа
программисты из Borland), имеющее имя SelectedRows, и вот как его можно
использовать:
procedure TfrmGrid.Button1Click(Sender: TObject);
var
i: integer;
beginFor i := 0 to DBGrid1.SelectedRows.Count - 1 dobegin
Table1.GoToBookmark(TBookmark(DBGrid1.SelectedRows[i]));
Table1.Delete;
end;
end;
Вот код на Delphi, демонстрирующий использование свойства SelectedRows компонента DBGrid для выбора и удаления строк из таблицы базы данных.
Содержание кода:
Определен процедура Button1Click, которая будет вызвана при клике кнопки на форме.
Внутри этой процедуры объявляется переменная i типа integer.
Затем используется цикл для перебора выбранных строк в DBGrid. Это делается с помощью свойства SelectedRows DBGrid, которое возвращает список индексов выбранных строк.
Для каждого выбранного ряда код использует метод GoToBookmark компонента Table1 (который предполагается быть компонентом TTable или TQuery) для перехода к маркеру, связанному с этим рядом. Тип TBookmark используется для приведения индекса выбранной строки к маркеру.
Наконец, метод Delete вызывается на компоненте Table1 для удаления текущего записи.
Комментарий о программистах Borland подразумевает, что это свойство не документировано в официальной документации Delphi, но на самом деле это стандартная функция DBGrids в Delphi.
Обратите внимание, что этот код предполагает, что компоненты DBGrid1 и Table1 правильно настроены и связаны друг с другом. Кроме того, код не включает в себя обработку ошибок или проверки, поэтому может быть полезно добавить эти функции в зависимости от конкретных требований вашего приложения.
В статье описывается использование свойства SelectedRows в DBGrid, позволяющего выбрать и удалить выбранные строки из таблицы.
Комментарии и вопросы
Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS
Telegram-канал