t_var_names t_var := t_var();
v_flag BOOLEAN;
BEGIN
v_flag := t_var_names.exists(0);
IF v_flag = FALSE THEN
t_var_names.extend;
t_var_names(t_var_names.last) := 'JAM';
--t_var_names.extend(10, 1);
ELSE
dbms_output.put_line('TRUE');
END IF;
t_var_names.extend(5);
t_var_names(2) := 'Jack';
t_var_names(3) := 'Oscar';
t_var_names(4) := 'Tom';
t_var_names(5) := 'Cooper';
FOR i IN 1 .. t_var_names.count
LOOP
dbms_output.put_line(t_var_names(i));
END LOOP;
t_var_names.delete(3);
dbms_output.put_line(t_var_names.count);
dbms_output.put_line(t_var_names.last);
t_var_names.trim(3);
dbms_output.put_line(t_var_names.count);
dbms_output.put_line(t_var_names.last);
dbms_output.put_line(t_var_names.first);
dbms_output.put_line('----------------');
FOR j IN REVERSE 1 .. t_var_names.count
LOOP
IF t_var_names.exists(j) THEN
dbms_output.put_line(t_var_names(j));
ELSE
dbms_output.put_line(j);
END IF;
END LOOP;
END;
運行結果:
JAM
Jack
Oscar
Tom
Cooper
5
6
2
2
----------------
Jack
JAM