Code: Select all
procedure TForm1.Button1Click(Sender: TObject);
begin
OraScript1.SQL.Text :=
'create or replace EDITIONABLE procedure proc11 is ' + #13#10 +
'begin ' + #13#10 +
' null; ' + #13#10 +
'end; ' + #13#10 +
'/ ' + #13#10;
ShowMessage(IntToStr(OraScript1.Statements.Count)); // showing 2
end;
Code: Select all
SQL> create or replace EDITIONABLE procedure proc11 is
2 begin
3 null;
4 end;
5 /
Procedure created.