Я привел чистый SQL.
Т.е. вместо цикла
Код:
while not Table1.Eof do
begin
Table1.Locate(n,'rnomer',[]);
Table1.Edit;
Table1.FieldByName('rnomer').AsString:=IntToStr(StrToInt(Table1.FieldByName('rnomer').AsString)+1);
Table1.Post;
end;
который вызывает кучу запросов к БД можно использовать
TADOQuery, запихнуть в него "
SQL" и сделать
TADOQuery.ExecSQL