DECLARE
TYPE t_var IS TABLE OF VARCHAR2(100);
t_author t_var := t_var('Jack', 'Tom', 'Jack', 'Cooper', 'Dexter', 'Cooper');
t_dist t_var := t_var();
BEGIN
t_dist := SET(t_author);
FOR i IN 1 .. t_dist.count
LOOP
dbms_output.put_line(t_dist(i));
END LOOP;
IF t_dist IS a SET THEN
dbms_output.put_line('t_author is a set!');
ELSE
dbms_output.put_line('t_author is not a set!');
END IF;
TYPE t_var IS TABLE OF VARCHAR2(100);
t_author t_var := t_var('Jack', 'Tom', 'Jack', 'Cooper', 'Dexter', 'Cooper');
t_dist t_var := t_var();
BEGIN
t_dist := SET(t_author);
FOR i IN 1 .. t_dist.count
LOOP
dbms_output.put_line(t_dist(i));
END LOOP;
IF t_dist IS a SET THEN
dbms_output.put_line('t_author is a set!');
ELSE
dbms_output.put_line('t_author is not a set!');
END IF;
END;
输出:
Jack
Tom
Cooper
Dexter
t_author is a set!