Fórum Dúvidas ClientDataSet #229755

  Query := TIBQuery.Create(Self);
  Prov  := TDataSetProvider.Create(Self);
  CliDS := TClientDataSet.Create(Self);
  DS    := TDataSource.Create(Self);

  Query.Database    := IBDatabase1;
  Query.Transaction := IBTransaction1;
  Query.SQL.Add(Edit1.Text);

  Prov.DataSet := Query;
  Prov.Name := ´Prov´;

  CliDS.ProviderName := Prov.Name;

  DS.DataSet := CliDS;

  DBGrid1.DataSource := DS;

  CliDS.Active := True;

constructor TCliente.Create;
begin
  Query := TIBQuery.Create(Query);
  Prov  := TDataSetProvider.Create(Prov);
  CliDS := TClientDataSet.Create(CliDS);
  DS    := TDataSource.Create(DS);

  Query.Database    := IBDatabase1;
  Query.Transaction := IBTransaction1;
  Query.SQL.Add(Edit1.Text);

  Prov.DataSet := Query;
  Prov.Name := ´Prov´;

  CliDS.ProviderName := Prov.Name;

  DS.DataSet := CliDS;
end;

var
  Cliente: TCliente;
begin
  Cliente := TCliente.Create;
  Cliente.Query.SQL.Add(Edit1.Text);
  DBGrid1.DataSource := Cliente.DS;
  Cliente.CliDS.Active := True;  =====>>>> o problema ocorre nessa linha
end;