(DataSource + DataSet) * run-time

[Yogrik]

Код: Выделить всё

         bdNew := TSqlite3Dataset.Create(Form1);
         dsNew := TDataSource.Create(Form1);
         rxDbGridNew := TDBGrid.Create(Form1);


         with bdNew do
         begin
            FileName := './test.db';
            SQL := 'select * from test';
            TableName := 'test';
         end;

         with dsNew do
         begin
          AutoEdit := False;
          DataSet := bdNew;
         end;


         with rxDbGridNew do
         begin
           DataSource := dsPrice;
         end;

         bdNew.Active := true;


Почему не работает???

[Yogrik]

Так значится вот так работает

Код: Выделить всё


         bdNew := TSqlite3Dataset.Create(Form1);
         dsNew := TDataSource.Create(Form1);
         rxDbGridNew := TDBGrid.Create(Form1);


         with bdNew do
         begin
            FileName := './test.db';
            SQL := 'select * from test';
            TableName := 'test';
         end;

         with dsNew do
         begin
          AutoEdit := False;
          DataSet := bdNew;
         end;


         with rxDbGridNew do
         begin
           Parent := Form1;
           DataSource := dsPrice;
         end;

         bdNew.Active := true;