procedure TForm1.Button9Click(Sender: TObject); var i : Integer; begin for i := 0 to DBGrid1.SelectedRows.Count-1 do begin DBGrid1.DataSource.DataSet.GotoBook(pointer(DBGrid1.SelectedRows.items[i])); DBGrid1.DataSource.DataSet.Edit; DBGrid1.DataSource.DataSet.FieldByName('age').AsInteger := 1; DBGrid1.DataSource.DataSet.Post; end; end;
var
i : Integer;
begin
for i := 0 to DBGrid1.SelectedRows.Count-1 do
begin
DBGrid1.DataSource.DataSet.GotoBook(pointer(DBGrid1.SelectedRows.items[i]));
DBGrid1.DataSource.DataSet.Edit;
DBGrid1.DataSource.DataSet.FieldByName('age').AsInteger := 1;
DBGrid1.DataSource.DataSet.Post;
end;
end;