Devart Forums

Code: Select all

procedure TForm2.Button1Click(Sender: TObject);
begin
  OraScript1.SQL.Text :=
    '<<outer_block>>'                      + #13#10 +
    'declare'                              + #13#10 +
    '  a number := 4;'                     + #13#10 +
    'begin '                               + #13#10 +
    '    <<inner_block>> '                 + #13#10 +
    '    declare'                          + #13#10 +
    '      a number := 5;'                 + #13#10 +
    '    begin'                            + #13#10 +
    '      dbms_output.put_line(''outer a = '' || outer_block.a);' + #13#10 +
    '      dbms_output.put_line(''inner a = '' || inner_block.a);' + #13#10 +
    '    end;'                             + #13#10 +
    'end local_block;'                     + #13#10 +
    '/'                                    + #13#10;
  ShowMessage(IntToStr(OraScript1.Statements.Count)); // show 2
  ShowMessage(OraScript1.Statements[0].SQL);
  ShowMessage(OraScript1.Statements[1].SQL);
end;