Ds.First;
while not Ds.Eof do
begin
Cds.Insert;
for I := 0 to Ds.FieldCount - 1 do
Cds.FielDs[I].Value := Ds.FielDs[I].Value;
Cds.Post;
Ds.Next;
end;
end;
end;
Ds.First;
while not Ds.Eof do
begin
Cds.Insert;
for I := 0 to Ds.FieldCount - 1 do
Cds.FielDs[I].Value := Ds.FielDs[I].Value;
Cds.Post;
Ds.Next;
end;
end;
end;