在Delphi中将TMyQuery数据集转换为TClientDataSet

procedure TForm1.CopyDataSet(Source: TDataSet; Dest: TClientDataSet);
var
  I: Integer;
begin
  Source.First;
  Dest.EmptyDataSet;
  Dest.CreateDataSet;
  for I := 0 to Source.FieldCount - 1 do
    Dest.FieldDefs.Add(Source.Fields[I].FieldName, Source.Fields[I].DataType, Source.Fields[I].Size);
  Dest.Open;
  while not Source.Eof do
  begin
    Dest.Append;
    for I := 0 to Source.FieldCount - 1 do
      Dest.Fields[I].Value := Source.Fields[I].Value;
    Dest.Post;
    Source.Next;
  end;
  Dest.First;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyDataSet(MyQuery1, ClientDataSet1);
end;