Var
T: TOraType;
A: TOraArray;
I: Integer;
begin
T := TOraType.Create(oraclesession.ocisvcctx, 'T_QUERY_FIELDS');
A := TOraArray.Create(T);
for I :=0 to 100 do
A.ItemAsObject.AttrAsString['NAME'] := 'Name'+IntToStr(I); // < Access Violation at Address xxxxx on orageneric9.dll
end;
/*
REATE OR REPLACE
type T_Query_Field as object (
F_Type varchar2(30),
Name varchar2(255),
Disp_Label varchar2(255),
Disp_Width number(3),
Disp_Format varchar2(50),
Dsrc varchar2(4000)
) not final
CREATE OR REPLACE
type T_Query_Fields as VArray(255) of T_Query_Field
*/
What wrong?
