Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Как удалить выделенные записи? [D6, WinME]


Gorn ©   (2003-09-14 17:43:00) 

В DBGrid"е выделено несколько записей (MultiSelect). Как перебором записей удалить только выделенные? Что-то типа
if gdSelected in State then ... Подскажите.


mfender   (2003-09-15 05:02:00) [1]

Тогда вот такую конструкцию попробуй:

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var n: Integer;
begin
if Key = VK_DELETE then begin
if DBGrid1.SelectedRows.Count>0 then
with DBGrid1.DataSource.DataSet do
for n:=0 to DBGrid1.SelectedRows.Count-1 do
begin
GotoBookmark(pointer(DBGrid1.SelectedRows.Items[n]));
if Table1 ....... <какое-то условие для удаления>
end;
end;
end;


mfender   (2003-09-15 04:35:00) [2]

А if Key = VK_DELETE then DBGrid1.SelectedRows.Delete;не подойдет? Или надо именно перебирать?


Наверх

Титульная страница Поиск, карта сайта Написать письмо