ТЕМА:

Query.First

while NOT Query.EoF do

   begin

      Query.Fields.Field[i].AsТип бла-бла-бла;         // Это 2 варианта

      Query.Fields.FieldByName('имя') бла-бла-бла;  // одного и того же

      Query.Next

   end;

DROP TYPE pages_object;

DROP TYPE pages_table;

DROP FUNCTION GetPagesCursor;



CREATE TYPE pages_object AS OBJECT

(

 page_serial NUMBER(16),

 name VARCHAR2(15),

 page_file VARCHAR2(255),

 sequritylevel NUMBER(3),

 uses NUMBER(16)

 );



CREATE TYPE pages_table AS TABLE OF pages_object;



CREATE OR REPLACE FUNCTION GetPagesCursor RETURN pages_table IS



 CURSOR c_pages IS

  SELECT page_serial, UPPER(name), pagefile, securitylevel, uses FROM pages;



 v_pages pages%ROWTYPE;

 t_pages pages_table := pages_table();

 n INTEGER:=0;

BEGIN

 FOR v_pages IN c_pages LOOP

  n:=n+1;

  t_pages.EXTEND;

  t_pages(n):=v_pages;

 END LOOP;

RETURN t_pages;

END GetPagesCursor;





-- Использование


SELECT

  page_serial,

  name

FROM

TABLE( CAST(GetPagesCursor() AS pages_table));