namespace hello;
 
interface
uses
    System,
    Oracle.DataAccess.Client;

type
    Hello = class
public
    class method Main(args: array of String): Integer;
end;
 
implementation
 
class method Hello.Main(args: array of String): Integer;
var
    conStr: String;
    sqlStr: String;
    con: OracleConnection;
    cmd: OracleCommand;
    reader: OracleDataReader;
begin
    conStr := "Data Source=ORCL;User ID=scott;Password=tiger";
    sqlStr := "SELECT 'Hello, ODP.NET World!' AS Message FROM DUAL";
    con := new OracleConnection(conStr);
    cmd := new OracleCommand(sqlStr, con);
    con.Open();
    reader := cmd.ExecuteReader();
    while reader.Read() do begin
        System.Console.WriteLine( reader.GetName(0) );
        System.Console.WriteLine( "---------------------" );
        System.Console.WriteLine( reader[0] );
    end;
    reader.Close();
    con.Close();
end;
 
end.