delphi不熟,写个pl/sql程序吧。
SQL> set serveroutput on
SQL> declare
2 v_line varchar2(50);
3 i number :=3;
4 begin
5 dbms_output.enable(1000000);
6 dbms_output.put_line('line one');
7 dbms_output.get_line(v_line,i);
8 dbms_output.put_line('v_line=' || v_line || ';');
9 dbms_output.put_line('i=' || i || ';');
10 end;
11 /
v_line=line one;
i=0;PL/SQL procedure successfully completed.SQL> set serveroutput on
SQL> declare
2 v_line dbms_output.chararr;
3 i number :=3;
4 begin
5 dbms_output.enable(1000000);
6 dbms_output.put_line('line one');
7 dbms_output.put_line('line two');
8 dbms_output.put_line('line three');
9 dbms_output.get_lines(v_line,i);
10 dbms_output.put_line('v_line1=' || v_line(1) || ';');
11 dbms_output.put_line('v_line2=' || v_line(2) || ';');
12 dbms_output.put_line('v_line3=' || v_line(3) || ';');
13 end;
14 /
v_line1=line one;
v_line2=line two;
v_line3=line three;PL/SQL procedure successfully completed.不知道这能有什么用?
SQL> set serveroutput on
SQL> declare
2 v_line varchar2(50);
3 i number :=3;
4 begin
5 dbms_output.enable(1000000);
6 dbms_output.put_line('line one');
7 dbms_output.get_line(v_line,i);
8 dbms_output.put_line('v_line=' || v_line || ';');
9 dbms_output.put_line('i=' || i || ';');
10 end;
11 /
v_line=line one;
i=0;PL/SQL procedure successfully completed.SQL> set serveroutput on
SQL> declare
2 v_line dbms_output.chararr;
3 i number :=3;
4 begin
5 dbms_output.enable(1000000);
6 dbms_output.put_line('line one');
7 dbms_output.put_line('line two');
8 dbms_output.put_line('line three');
9 dbms_output.get_lines(v_line,i);
10 dbms_output.put_line('v_line1=' || v_line(1) || ';');
11 dbms_output.put_line('v_line2=' || v_line(2) || ';');
12 dbms_output.put_line('v_line3=' || v_line(3) || ';');
13 end;
14 /
v_line1=line one;
v_line2=line two;
v_line3=line three;PL/SQL procedure successfully completed.不知道这能有什么用?
那用处可就大了
而且参数数量也不是固定的用dbms_output随时输出我想要的,最后只要能
捕捉到它的输出信息就行了