Вопрос снимаю было недавно просветление сделал вот так, вроде работает:
Код:
procedure TForm1.N5Click(Sender: TObject);
var
i:integer;
c:integer;
begin
i:=0;
c:=strtoint(edit1.text);
datamodule2.VednaOtgruzTable.First;
while not datamodule2.VednaOtgruzTable.Eof do
if datamodule2.VednaOtgruzTable.FieldByName('Расстояние').AsVariant<=200
then
begin
datamodule2.VednaOtgruzTable.Edit;
datamodule2.VednaOtgruzTable.FieldByName('Перевозчик').AsString:='Компания';
datamodule2.VednaOtgruzTable.Post;
inc(i);
if i<c
then
datamodule2.VednaOtgruzTable.Next
else
datamodule2.VednaOtgruzTable.Last;
end
else
datamodule2.VednaOtgruzTable.Next;
end;