[firebird-support] Wrting my first UDF for Firebird v1.5

[SoftTech]

Greetings All,

I had to create a UDF using Delphi that can be imported into Firebird.

Currently using v1.5 but am studying up on how to move to the latest version 
of Firebird.

Using this article as my guide I created my first UDF:
http://www.firebirdsql.org/en/writing-udfs-for-interbase/

The UDF will take a SQL statement with parameters and replace the parameters 
with the actual value, and return a SQL statement that can then be used with 
EXECUTE STATEMENT.

The UDF works great.

My concern and question is since I'm using v1.5 of Firebird and I did 
include IB_Util in my uses clause do I need to use "function 
ib_util_malloc(l: integer): pointer; cdecl; external 'ib_util.dll';"?

Or does anyone see anything wrong with my UDF that I should be made aware 
of?

Does ib_util.dll need to be in the windows\system directory on the office 
server?

Here is my UDF:

DPR Source:
****************************************************
library Softtech;

uses
  SysUtils,
  Classes,
  SQLFunctions in 'SQLFunctions.pas';

{$R *.RES}

exports SQLCondParamRepl;

begin
end.
****************************************************

Unit Source:
****************************************************
{-----------------------------------------------------------------------------
 Project Name:
 Project Dir : C:\Delphi 5\DLLs\Softtech UDF\
 Created     : 17-Dec-2012
 Unit Name   : SQLFunctions
 Purpose     :
 Author      : Michael G. Tuttle
 History     :
-----------------------------------------------------------------------------}
unit SQLFunctions;

interface

//* IB_Util.pas must be in the library path
uses Sysutils, IB_Util;

function SQLCondParamRepl(SQLCommandText: PChar; var AcctID, CaseID, DebtNo: 
Integer): PChar; cdecl; export;

implementation

{ Use this in the script editor of Database Workbench to install this 
function into Firebird:

  declare external function f_SQLCondParamRepl
  cString(32760), Integer, Integer, Integer
  returns cstring(32760) free_it
  entry_point 'SQLCondParamRepl' module_name 'softtech';

  Test it with this:
  SELECT F_SQLCONDPARAMREPL('SELECT D.LIST_DATE FROM DEBT D WHERE D.ACCT_ID 
= :Param1 AND D.CASE_ID = :Param2 AND D.DEBT_NO = :Param3', :V_ACCT_ID, 
:V_CASE_ID, :V_DEBT_NO) from RDB$Database

  Or from within a stored procedure:
  RESULT = F_SQLCONDPARAMREPL('SELECT D.LIST_DATE FROM DEBT D WHERE 
D.ACCT_ID = :Param1 AND D.CASE_ID = :Param2 AND D.DEBT_NO = :Param3', 
:V_ACCT_ID, :V_CASE_ID, :V_DEBT_NO);
  EXECUTE STATEMENT}

function SQLCondParamRepl(SQLCommandText: PChar; var AcctID, CaseID, DebtNo: 
Integer): PChar; cdecl; export;
var
  CT: String;
begin
  CT :=  String(SQLCommandtext);

  CT := StringReplace(CT, ':Param1', IntToStr(AcctID), [rfReplaceAll, 
rfIgnoreCase]);

  CT := StringReplace(CT, ':Param2', IntToStr(CaseID), [rfReplaceAll, 
rfIgnoreCase]);

  if DebtNo > 0 then
    CT := StringReplace(CT, ':Param3', IntToStr(DebtNo), [rfReplaceAll, 
rfIgnoreCase]);

  Result := PChar(CT);
end;

end.

****************************************************