связывание динамически созданых компонентов

[nic1982]

необходимо динамически создать: TIBConnection, TSQLTransaction, TSQLQuery, TDatasource
и связать:
1) TSQLTransaction с TIBConnection
2) TSQLQuery с TIBConnection
3) TDatasource с TSQLQuery

есть такой код:

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

procedure p;
var
   conn  : TIBConnection;
   tran  : TSQLTransaction;
   query : TSQLQuery;
   ds    : TDatasource;   

begin
   conn:=  TIBConnection.Create(nil);
   tran:=  TSQLTransaction.Create(nil);
   query:= TSQLQuery.Create(nil);
   ds:=    TDatasource.Create(nil);   
 
   tran.DataBase.Name:=conn.Name;
   query.DataBase.Name:=conn.Name;
   ds.DataSet.Name:=query.Name;

   ................................
              прочий код
   ................................

   ds.Free;
   query.Free;
   tran.Free;
   conn.Free;     
end;


на строке ---> tran.DataBase.Name:= conn.Name;
ошибка: Проект ХХХ вызвал класс исключения 'External: SIGSEGV'

[SSerge]

Не вижу, где вы определили значение поля Conn.Name.
так что вполне логично, tran.DataBase.Name:=nil; -> SIGSEGV

[nic1982]

Добавлено спустя 9 минут 23 секунды:


добавил conn.Name:= 'conn',
ошибка таже самая в томже месте

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

procedure p;
var
   conn  : TIBConnection;
   tran  : TSQLTransaction;
   query : TSQLQuery;
   ds    : TDatasource;   

begin
   conn:=  TIBConnection.Create(nil);
   tran:=  TSQLTransaction.Create(nil);
   query:= TSQLQuery.Create(nil);
   ds:=    TDatasource.Create(nil);   

   conn.Name:=  'conn';
   tran.Name:=  'tran';
   query.Name:= 'query';
   ds.Name:=    'ds';

   tran.DataBase.Name:=conn.Name;
   query.DataBase.Name:=conn.Name;
   ds.DataSet.Name:=query.Name;

   ................................
              прочий код
   ................................

   ds.Free;
   query.Free;
   tran.Free;
   conn.Free;     
end;


[v-t-l]

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

    procedure p;
    var
       conn  : TIBConnection;
       tran  : TSQLTransaction;
       query : TSQLQuery;
       ds    : TDatasource;   

    begin
       conn:=  TIBConnection.Create(nil);
       tran:=  TSQLTransaction.Create(nil);
       query:= TSQLQuery.Create(nil);
       ds:=    TDatasource.Create(nil);   

       tran.DataBase:=conn;
       query.DataBase:=conn;
       ds.DataSet:=query;

       ................................
                  прочий код
       ................................

       ds.Free;
       query.Free;
       tran.Free;
       conn.Free;     
    end;


[nic1982]

v-t-l спс

PS
увидел ваше сообщение после того как сам пришол к тому же выводу
и убрал часть кода

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

   conn.Name:=  'conn';
   tran.Name:=  'tran';
   query.Name:= 'query';
   ds.Name:=    'ds';