Dream

// 取得 TClientDataSet
function Getcds(TQ : TSQLQuery):TClientDataSet ;
var
  pdPrt : TDataSetProvider;
  cdsPrt : TClientDataSet;
begin
    pdPrt  := TDataSetProvider.Create(nil);
    cdsPrt := TClientDataSet.Create(nil);
    pdPrt.options:=[poAutoRefresh,poPropogateChanges,poAllowCommandText];
    pdPrt.DataSet := TQ;
    cdsPrt.ProviderName := pdPrt.Name ;
    cdsPrt.SetProvider(pdprt);
    Result := cdsPrt;
end;