var i; begin while not dbgrid1.DataSource.DataSet.Eof do begin adotable1.Insert; for i:=0 to dbgrid1.DataSource.DataSet.FieldCount-1 do begin adotable1.Fields[i].AsString:=dbgrid1.DataSource.DataSet.Fields[i]; end; dbgrid1.DataSource.DataSet.Next; end;
i;
begin
while not dbgrid1.DataSource.DataSet.Eof do
begin
adotable1.Insert;
for i:=0 to dbgrid1.DataSource.DataSet.FieldCount-1 do
begin
adotable1.Fields[i].AsString:=dbgrid1.DataSource.DataSet.Fields[i];
end;
dbgrid1.DataSource.DataSet.Next;
end;