Asignar TField a TDBLookupList en T.ejecución

[Bauhaus1975]

Hola, tengo un TDBLookupList (realmente es un TJvDBLookupList, de las Jedi), conectado a un data source, y este a su vez conectado a un TIBQuery (que hace de DataSet), resulta que quiero llenar la lista con uno de los campos del resultado de la query. No sé bien cómo hacerlo.
Estoy intentando asignar un campo (TField) de la query en el datasource en tiempo de ejecución. Pero no funciona, slata excepción en la linea (2ª) del 'FindField'

prueba := TField.Create(self.TJvDBLookupList); // prueba es de tipo TField
prueba := DataModule.ibQuery.FindField('TIPO');
form1.TJvDBLookupList.Field.Assign(prueba);

¿Alguien puede guiarme un poco?
Muchas gracias y un saludo.

[[coso]]

Hola, antes que nada, si findfield te devuelve un objeto tipo TField, no deberias crear prueba antes, pues el findfield sobreescribira el recien creado. De igual manera, si ahora mismo hicieses un prueba.free, estarias liberando DataModule.ibQuery.FindField('TIPO'). Es raro que te salte una excepción, pues si TIPO existe te tendria que devolver nil. Es posible que ibQuery no este asignado antes de hacer el findfield? prueba de hacer:

Código Delphi [-]
var
prueba : TField;
begin
if not Assigned(DataModule.ibQuery) then ShowMessage('');
prueba := DataModule.ibQuery.FindField('TIPO');
form1.TJvDBLookupList.Field.Assign(prueba);

si nos indicas cual es el mensaje de la excepción, quiza te podamos ayudar mejor. saludos.

[Bauhaus1975]

Hola coso, gracias por tu atención.
He probado la sentencia 'if not Asign' y me lanza la excepción 'Read of Address', parece que hay problemas de acceso al ibQuery, aunque desconozco por qué. He probado a llamar a un método público del DataModule y no da error de acceso. Este DataModule dónde se encuentra la query tiene definido otro DataModule en la directiva 'interface', el cual contiene la conexión a la base de datos y un TIBTransaction al que se conectan las queries (aunque no creo que esto sea problema).

Otra cosa, el ibQuery tiene definida una sentencia SQL, pero luego a parte tiene definido un campo, el cual es uno de los campos obtenidos en la sentencia, para alimentar posteriormente la lista. Aunque no sé si esto es correcto o la mejor manera, ya que no tengo mucha experiencia programando este tipo de aplicaciones.

He seguido probando cosas, pero no sé que puede estar pasando.
¿Alguna idea?

[[coso]]

Hola, yo simplificaria todo a un unico datamodule (para eso esta este tipo de form, para no tener desperdigados todos los componentes de base de datos). Es probable que haya algun lio por alli (forms con el mismo nombre y diferentes componentes, por ejemplo, cosas asi) Por otra banda, si te da un error de read address, lo mas probable es que no este asignado o bien datamodule (que no este creado en tiempo de ejecucion) o bien que hayas liberado el ibQuery. Prueba if not assigned(Datamodule) then ShowMessage(''). Creo que debe ser eso, que no tienes creada la form Datamodule al llegar a este punto. Saludos.

[Bauhaus1975]

Hola de nuevo, he probado lo que me dices y nada.
Parece que todo está bien asignado, además todos los objetos (datasource, query) accedo sin problemas en tiempo de ejecución. El error ocurre al llamar a esa sentencia 'Assign', así que seguiré investigando.
Gracias.

[[coso]]

Hola, no es assign() es assigned(). La primera copia dos objetos. La segunda comprueba que el argumento pasado como puntero no sea null. Saludos.