Из DataSet работающего по циклу в DataSet

[maroder22]

Как в цикле переписывать данные из DataSet работающего по циклу в DataSet, изначально пустой, но имеющий те же значения полей?

Суть вопроса в том, чтобы из первого датасета, который формируется запросом и содержит на каждом этапе цикла одну строчку, эта строчка записывалась в другой датасет, те копились результаты.

Извините за неграмотность! Но пожалуйста помогите!

[Yurk@]

примерно так:

var i:integer;
....
DS1.First;
DS2.Open;
while not DS1.eof do
begin
DS2.Insert;
for i:=0 to DS1.FieldsCount-1 do
DS2.Fields[i].asVariant:=DS1.Fields[i].asVariant;
DS2.Post;
DS1.Next;
end;