|
На собрании перед выпуском Windows'98 в компании Micro$oft участникам был задан странный вопрос:
- Если вы зашли на авиaлайнер и узнали, что ваша группа программистов была ответственна за составление программы, управляющей полетом вашего авиалайнера, сколько бы из вас немедленно выскочило из самолета?
Все подняли руки, кроме одного программиста. Когда его спросили, что бы он сделал, тот ответил, что он бы с удовольствием остался на борту. Когда его спросили почему, он ответил:
- А чего мне бояться полета? С нашей программой этот самолет даже не доехал бы до взлетной полосы.
|
Существует одно свойство, не упомянутое в файлах помощи (оплошность, господа
программисты из Borland), имеющее имя SelectedRows, и вот как его можно
использовать:
procedure TfrmGrid.Button1Click(Sender: TObject);
var
i: integer;
begin
For i := 0 to DBGrid1.SelectedRows.Count - 1 do
begin
Table1.GoToBookmark(TBookmark(DBGrid1.SelectedRows[i]));
Table1.Delete;
end;
end;
|
|
DBGrid - выбранные строки