Moin, ich mache das mit dieser proc. TDM ist einfach nur mein DataModule
Delphi-Quellcode:
procedure TDM.CopyDataSetToCDS(Source: TDataSet; Dest: TClientDataSet; CloseSource: boolean);
var dsProvider: TDataSetProvider;
begin
{GetText in der Source funktioniert nicht}
{Filter in der Source funktioniert}
dsProvider:=TDataSetProvider.Create(nil);
try
dsProvider.DataSet:=Source;
Dest.SetProvider(dsProvider);
Dest.Open;
finally FreeAndNil(dsProvider); end;
if CloseSource then Source.Close;
end;