Ligar TDataSource a TClientDataSet. Tem como?

Question

Tem como criar um TDataSource em runtime e liga-lo a um TClientDataset tamb�m em runtime?Abra�os...

Adriano Santos · Answer

Nesse exemplo estou criando um DBNavigator, DBGrid, ClientDataSet e DataSource todos em runtime e ligando-os uns aos outros. Apenas coloque um Button na tela e codifique como abaixo. Depois baseie-se nesse c�digo para entender o funcionamento.

procedure TForm1.Button1Click(Sender: TObject);
var
  DbNav: TDbNavigator;
  DbGrid: TDbGrid;
  DS: TDataSource;
  CDS: TClientDataSet;
begin
  { Cria��o do DataSource e ClientDataSet }
  CDS := TClientDataSet.Create(Form1);
  CDS.FileName := �C:\Arquivos de programas\Arquivos comuns\Borland Shared7\Data\country.xml�;
  CDS.Open;
  DS := TDataSource.Create(Form1);
  DS.DataSet := CDS;
  { Cria��o do DBNavigator }
  DbNav := TDbNavigator.Create(Form1);
  with DbNav do
  begin
    Parent := Form1;
    Left := 8;
    Top := 8;
    DataSource := DS;
  end;
  { Cria��o do DBGrid }
  DbGrid := TDBGrid.Create(Form1);
  with DbGrid do
  begin
    Parent := Form1;
    Left := 8;
    Top := 40;
    Width := 385;
    Height := 161;
    DataSource := DS;
  end;
  Form1.Width := 408;
  Form1.Height := 244;
end;

Adriano Santos · Answer

N�o esque�a de declarar na Uses as seguintes Units do Delphi.[code:1:39cf5a2732]uses  StdCtrls, ExtCtrls, DBCtrls, Grids, DBGrids, DB, DBClient;[/code:1:39cf5a2732]...

F�rum Ligar TDataSource a TClientDataSet. Tem como? #364425