Форум программистов [Powered by Invision Power Board]

Цитата(php5 @ 10.12.2008, 19:49

)

Что то там ничего не понятно относительно поставленной задачи

от чего же
например, вот нужный тебе кусок кода

Код


procedure TClientDataForm.OkBtnClick(Sender: TObject);
var
  DataSet: TDataSet;
  DSProv: TDataSetProvider;
begin
  try
    if DataSetList.ItemIndex >= 0 then
    begin
      Screen.Cursor := crHourGlass;
      try
        with DataSetList do
          DataSet := FDesigner.GetComponent(Items[ItemIndex]) as TDataSet;
        if (DataSet is TClientDataSet) then
          FDataSet.Data := TClientDataSet(DataSet).Data
        else
        begin
          DSProv := TDataSetProvider.Create(nil);
          try
            DSProv.DataSet := DataSet;
            FDataSet.Data := DSProv.Data
          finally
            DSProv.Free;
          end;
        end;
      finally
        Screen.Cursor := crDefault;
      end;
    end
    else
      FDataSet.Data := varNull;
  except
    ModalResult := mrNone;
    raise;
  end;
end;

а если разжевать, то вот:

Код


var
  DSProv: TDataSetProvider;
begin
  DSProv := TDataSetProvider.Create(nil);
  try
    DSProv.DataSet := ZQuery1;
    ClientDataSet1.Data := DSProv.Data;
  finally
    DSProv.Free;
  end;
end;