Devart Forums

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;

Code: Select all

Select * from dual
/
WITH
  FUNCTION with_function(p_id IN NUMBER) RETURN NUMBER IS
  BEGIN
    RETURN p_id;
  END;
SELECT with_function(1)
FROM   dual
WHERE  rownum = 1
/
with a as (select * from dual) select * from a
/