Extraer datos de un dataset?
 

Tengo una base en IB6.5 y uso Delphi7. Quiero obtener un dato de una consulta que hago con un IBDataSet, y quiero que ese dato lo recoja en el evento DrawColumnCell. He provado con:
Esto me genera un error de tipos.

Tambien he provado con la funcion CurrToStr
pero me genera un erro en tiempo de ejecucion:

"Project PApuntes.exe raised exception class EConvert Error whith message 'R00054' is not a valid floating point value.

'R00054' es el primer valor que ha de recoger la variable aux
El tipo de dato de DOCUMENTO en la base de datos es VARCHAR(6)

Gracias.

Prueba con esto:

var aux: STRING;
...
aux:=currtostr(IBDataSet1.FieldByName('DOCUMENTO').AsCurrency);

La variable aux es un string, y tratabas de cargar un valor numerico.
Ademas te faltaba un parentesis despues de 'DOCUMENTO'.

NOTA: Supongo que el campo DOCUMENTO es numerico, verdad??

El tipo de dato de DOCUMENTO es VARCHAR y contiene letras y numeros, del tipo R00054. Y como ya puse en el post no me funciona el CurrToStr y el error que me genera.

Si el dato es VARCHAR, no puedes usar AsCurrency, y mucho menos si tiene valores del tipo 'R00054' tal y como indicas, puesto que ese valor no se puede transformar a Moneda. Sería mejor que explicases que es lo que quieres hacer para poder darte una solución.

Entonces prueba esto:

aux:=IBDataSet1.FieldByName('DOCUMENTO').AsString;

Seguro que funciona :p

Gracias asi si que funciona :p