Fórum Formatação com UDF #131413

De uma olhada neste link http://www.firebirdsql.org/index.php?op=useful&id=geldenhuis

Espero ter colaborado.

Wilson,
 
Primeiramente muito obrigado pela sua colaboração porém não estou obtento sucesso na função que estou tentando desolver, segue o código anexo:

library Formatacoes;
uses
  SysUtils,
  Classes;
{$R *.RES}
function FuncFormataFloat(pdValor: Double; psMascara: PChar): PChar; export;
begin
  Result := PChar(FormatFloat(PChar(psMascara), pdValor));
end;
exports
   FuncFormataFloat;
begin
end.
 
 
Estou registrando da seguinte forma:

declare external function FuncFormataFloat
  Double Precision,
  Varchar(30)
returns
  Varchar(30)
entry_point 'FuncFormataFloat'
module_name 'Formatacoes.dll';

Para testar estou dando o seguinte comando:

SELECT FUNCFORMATAFLOAT(2.3,'0.00') FROM RDB$DATABASE
 
Porém não me retorna nada.
 
O que estou fazendo de errado. Alguém pode m ajudar ???
Grato,

Será que alguém pode me ajudar ????

No link que passei no post anterior, olhe a parte sobre Debugging e veja o que está sendo feito.

Qualquer coisa pot aí.

Espero ter colaborado.