Code: Select all
procedure TForm2.Button1Click(Sender: TObject);
begin
OraScript1.SQL.Text :=
'begin' + #13#10 +
' dbms_scheduler.create_job(' + #13#10 +
' job_name=>''j_null'',' + #13#10 +
' job_type=>''plsql_block'',' + #13#10 +
' job_action=> q''{' + #13#10 +
' declare a varchar2(10):= ''test_var'';' + #13#10 +
' begin' + #13#10 +
' null;' + #13#10 +
' end;' + #13#10 +
' }'',' + #13#10 +
' enabled=>true' + #13#10 +
' );' + #13#10 +
'end;' + #13#10 +
'/' + #13#10 +
'';
ShowMessage(IntToStr(OraScript1.Statements.Count)); // SHOWED 1 - it's OK.
ShowMessage(OraScript1.Statements[0].SQL); // SHOWED only half of sql - WHY?
end;