Colegas del Foro,
Estoy empezando a hacer mis primeros pinitos programando librerias, y
las estoy haciendo en Lazarus/FreePascal, ya que yo utilizo Firebird
con Linux, y Lazarus me da la ventaja de poder compilar en varios SO.
Bien, no he tenido mucha suerte con el tema, asi que pregunto a ver si
alguien podría darme una mano.
Buscando información en Internet, cosa que mucho no encontré (en
castellano por supuesto), he llegado a crear esto:

library MisUDFs;

{$mode objfpc}{$H+}

uses
Classes;

function Duplicar(var valor:real):real;export;
begin
result:=valor*2;
end;

exports
Duplicar name 'Duplicar';

begin
end.

Como ven es una simple libreria con una sola funcion llamada Duplicar
que simplemente toma un valor y lo multimplica por 2 y listo.

Luego publique esta UDF en Firebird 1.5 (la que uso), de la siguiente
manera:

DECLARE EXTERNAL FUNCTION DOBLE
DOUBLE PRECISION
RETURNS DOUBLE PRECISION BY VALUE
ENTRY_POINT 'Duplicar' MODULE_NAME 'libMisUDFs';

Hasta aqui todo perfecto, ningun error, luego para probar la UDF en
Firebird, ejecute la siguiente sentencia:

SELECT
precio,
doble(precio)
FROM ventaDET

pero el resultado no es el deseado, lo que sale es lo siguiente:
PRECIO DOBLE
------ -----
698.940 0.000
412.790 0.000
....... .....
123.010 0.000

Como ven en la columna DOBLE siempre obtengo el resultado 0.000.
Puede ser que el problema este en los tipos de datos, cosa que yo
realmente no tengo claro, si en este caso en FreePascal utilizo un
dato de tipo real, que tipo de dato debería utilizar en FireBird?




Desde ya muchas gracias