Code: Select all
OraSession1.SQL.SQL.Text := 'begin select count(*) into :var1 from dual; end;' ;
OraSession1.sql.parambyname('var1').DataType := ftString;
OraSession1.SQL.Execute;
OraSession1.SQL.SQL.Text := 'begin select ''AnyText'' into :var1 from dual; end;';
OraSession1.sql.parambyname('var1').DataType := ftString;
OraSession1.SQL.Execute; //<- ORA-06502 here