Codebue Fabio - P-Soft wrote:
nothing todo...
ok restart:
library pudf;
{$mode objfpc}{$H+}
uses
Classes,
p_func in 'p_func.pas';
exports
pround name 'p_round';
{$R pudf.res}
begin
// DECLARE EXTERNAL FUNCTION pround
// DOUBLE PRECISION, INTEGER
// RETURNS DOUBLE PRECISION BY VALUE
// ENTRY_POINT 'pudf_pround' MODULE_NAME 'pudf';
end.
and
unit p_func;
{$mode objfpc}{$H+}
interface
function p_round(var valore: double; ndec: integer): double; cdecl;
implementation
uses
Classes, SysUtils;
function p_round(var valore: double; ndec: integer): double; cdecl;
var
i: integer;
risultato: double;
ndivisore: integer;
begin
risultato:= valore;
ndivisore:= 1;
for i:= 1 to ndec do
begin
risultato:= risultato*10;
ndivisore:= ndivisore*10;
end;
result:= round(risultato)/ndivisore;
end;
end.
someone can compile and install?
I can... but when I try to execute
select round(123.1233, 2) as nrounded from rdb$database
always some error!!!
You are exporting now the function as p_round. So I guess your entry
point should be pudf_p_round.
Furthermore, your sql includes round and not pround!
What is the error message you got?
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
