Como añado un tfield aun tquery?
 

Hola, buenas tardes ... me dirijo al foro, para hacer una pregunta. Tengo un tquery con una cantidad de campos determinados, pero hay otros campos que dependen de otra consulta, y a veces hay que usar estos campos y otras veces no.

El problema se me plantea al intentar añadir un campo de los que salen de la consulta dinamica, en tiempo de ejecucion.No se como añadirlo. De momento utilizo este codigo:

Código Delphi [-]
 
var
Nivelusuario: tstringfield;
begin
Nivelusuario := TstringField.Create(self);
Nivelusuario.FieldKind := fkData;
Nivelusuario.FieldName := 'Nivelusuario';
Nivelusuario.DisplayLabel := 'Nivelusuario';
Nivelusuario.DataSet := TQuery.Create(self);
DataModule1.adotemp.Fields.Add(Nivelusuario);

Pero hago un

Código Delphi [-]
showmessage (DataModule1.adotemp.fieldbyname('Nivelusuario').asstring);

y no me muestra el valor.

Alguna idea??

Solucion:
 

Bueno ... ya he encontrado la solucion, la pongo por si alguien quiere saber como se hacia.

Código Delphi [-]
 
var
  Nivelusuario: tstringfield;
begin
Nivelusuario := TstringField.Create(self);
Nivelusuario.FieldName := 'Nivelusuario';
Nivelusuario.DisplayLabel := 'Nivelusuario';
Nivelusuario.DataSet := DataModule1.adotemp;
Nivelusuario.Name := 'Nivelusuario';
Nivelusuario.FieldKind := fkData;
DataModule1.adotemp.Fields.Add(Nivelusuario);
DataModule1.adotemp.FieldDefs.Update;
end;

Un saludo a todos