var OraSQL: TOraSQL; . . . OraSQL.SQL.Text := ''''INSERT INTO ODAC_Array (Code, Arr1, Arr2)'''' + ''''VALUES (:Code, :Arr1, :Arr2)'''';
OraSQL.ParamByName(''''Code'''').AsInteger := 10;
with OraSQL.ParamByName(''''Arr1'''').AsArray do begin AllocObject(OraSession.OCISvcCtx, ''''TODACArray1''''); ItemAsInteger[0] := 12; AttrAsInteger[''''[1]''''] := 10; ItemAsInteger[3] := 133; end;
with OraSQL. ParamByName(''''Arr2'''').AsArray do begin OCISvcCtx:= OraSession.OCISvcCtx; AllocObject(''''TODACArray2''''); AttrAsString[''''[2]'''']:= ''''eeee''''; ItemAsString[0]:= ''''FFFFF''''; end;