Code: Select all
procedure TForm2.Button1Click(Sender: TObject);
begin
OraScript1.SQL.Text := 'select * from dual;';
ShowMessage(OraScript1.Statements[0].SQL); // without semicolon
OraScript1.SQL.Text := 'with a as (select * from dual) select * from a;';
ShowMessage(OraScript1.Statements[0].SQL); // with semicolon
end;