Создание UDF для InterBase |
Previous Top Next |
Code: |
library nikelutils
uses SysUtils, Classes;
function MaxInt(var Int1, Int2: Integer): Integer; far cdecl export; begin if (Int1 > Int2) then Result := Int1 else Result := Int2; end;
function MinInt(var Int1, Int2: Integer): Integer; far cdecl export; begin if (Int1 < Int2) then Result := Int1 else Result := Int2; end;
exports MaxInt; MinInt;
begin end. |
А это пишим в базе:
Code: |
DECLARE EXTERNAL FUNCTION MAXINT INTEGER, INTEGER RETURNS INTEGER BY VALUE ENTRY_POINT "MaxInt" MODULE_NAME "nikelutils.dll";
DECLARE EXTERNAL FUNCTION MININT INTEGER, INTEGER RETURNS INTEGER BY VALUE ENTRY_POINT "MinInt" MODULE_NAME "nikelutils.dll";
|
©Drkb::02924
Взято с http://delphiworld.narod.ru