Pasar un registro dinámicamente

[goduquez]

Hola amigos, llevo dias tratando de hacer un preocedimiento y no doy...
la pregunta es la siguiente.

1. la pregunta:
en un Tdataset puedo insertar un registro con:
Tdataset.InsertRecord([Dato1,Dato2,...]), bien este InsertRecord recibe un arreglo TVarRec, ¿como lleno un TVarRec para realizarlo de esta manera:
Tdataset.InsertRecord(variable)...?

2. el problema:
De una consulta SQL que hago en un query no sé cuantos campos tiene (Select * from ...) la idea es pasar esos datos a un TclienteDataset para realizar unos "manejos", ya puedo construir los campos en tiempo de ejecución en el clientedataset con los del query, pero no logro pasar los datos..pues no se cuantos campos tiene para hacer el InsertRecord(...:
seria como un metodo que me retornara ese arreglo de valores.

Por su atención muchas gracias.

[[Al González]]

¡Hola!

Podrías buscar o hacer una función que cree un arreglo dinámico de registros TVarRec a partir del registro actual de un conjunto de datos dado, pero creo que en tu caso hay otras opciones más directas:

Si el conjunto de datos cliente no tiene ya registros y no se le van a agregar de otras consultas, algo sencillo sería conectarlo con la consulta mediante un TDataSetProvider.

Otra solución es utilizar un ciclo For sobre los campos:

Código Delphi [-]
TablaDestino.Insert;

For I := 0 To TablaDestino.FieldCount - 1 Do
  CampoDestino [i].Assign (CampoOrigen [i]);

TablaDestino.Post;

Después de todo, se cumple el objetivo de pasar los datos, aunque para ello no hagas uso del método InsertRecord.

Saludos.

Al González.