Object array

[manas]

create or replace type T_A_KADEME as VARRAY (18) of T_KADEME

create or replace type T_KADEME as OBJECT
(
ALT_LIMIT INTEGER,
UST_LIMIT INTEGER
)

I created a package which contains the procedure,
procedure D_C_TARIFF(pValue in T_TRFBIL, nValue2 in T_A_KADEME, nValue3 in T_A_KADEME, Woern out integer);
using Delphi Package Wizard.

Delphi created the corresponding code as follows,
TPgewos_G04 = class(TOracleCustomPackage)
public
procedure D_C_TARIFF(Pvalue: Pgewos_G04_T_Trfbil;
Nvalue2: TOracleObject; Nvalue3: TOracleObject; out Woern: Double);
published
property Name;
property Session;
property Cursor;
end;

There are examples demonstrating how to send parameter to such objects.

However, I can not send an array type parameter to Nvalue2 object.

Please, let me know how to send an array type parameter to Nvalue2 using TOracleObject.

 

[Marco Kalter]

You can download a demo project here .

This demo calls a procedure that returns a collection of department objects, and displays them in a memo.

It doesn't use a TOracleCustomPackage class, but the basic concepts apply.

------------------
Marco Kalter
Allround Automations