procedure _Factorial_D (Param: TExprRec)
begin
Param.Res.DefineDouble;
Param.Res.DoubleValue:=
Fact(Round(Param.Args[0].DoubleValue));
end;
procedure Example(MyParser:
TMtxExpression);
begin
myParser.DefineFunction('fact_double', _Factorial_D, 1, 'fact_double(x): factorial function');
end;