Я целюсь не рукой; кто целится рукой, тот забыл лицо своего отца.
Я целюсь глазом.
Я стреляю не рукой; кто стреляет рукой, тот забыл лицо своего отца.
Я стреляю разумом.
Я убиваю не оружием; кто убивает оружием, тот забыл лицо своего отца.
Я убиваю сердцем.
Древнее заклинание Квакеров
function TForm1.Grid_Edit(dbgIn: TDBGrid; qryIn: TQuery): Longint;
begin
Result := 0;
with dbgIn.DataSource.DataSet dobegin
First;
DisableControls;
trywhilenot EOF dobeginif (dbgIn.SelectedRows.CurrentRowSelected = True) thenbegin//Здесь можно обработать строку илил вызвать функцию для обработки
Inc(Result);
end;
Next;
end;
finally
EnableControls;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Caption := 'Обработано: ' + IntToStr(Grid_Edit(DBGrid1, Query1));
end;
Статья Обрабатываем выделенные строки в DBGrid раздела Компоненты и Классы TDBGrid может быть полезна для разработчиков на Delphi и FreePascal.
Комментарии и вопросы
Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.