Extraer datos de un dataset?

[Durbed]

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:

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

Esto me genera un error de tipos.

Tambien he provado con la funcion CurrToStr

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

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.

[Sick boy]

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??

[Durbed]

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.

[[basti]]

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.

[Sick boy]

Entonces prueba esto:

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

Seguro que funciona

[Durbed]

Gracias asi si que funciona