namespace hello;
 
interface
uses
    System,
    MySql.Data.MySqlClient;
 
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: MySqlConnection;
    cmd: MySqlCommand;
    reader: MySqlDataReader;
begin
    conStr := "server=localhost;user id=root;password=P@ssW0rd";
    sqlStr := "SELECT 'Hello, Connector/NET World!' AS Message";
    con := new MySqlConnection(conStr);
    cmd := new MySqlCommand(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.