OraScript Error

[sinys]

ODAC 9.2.7 D XE2

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;

OraScript1.Statements.Count show 2 instead 1.

[AlexP]

Hello,

Thank you for the information. We have reproduced the problem and will try to fix it as soon as possible.

[sinys]

I want to remember about this feature because it wasn't fixed in 9.4.11.

[AlexP]

This feature is added to our roadmap, however, it is not a priority and we cannot tell the exact terms of its implementation.