Devart Forums

Code: Select all

--This is a comment with non ACSII éàèöüä
Select * from MY_TABLE

Code: Select all

unit WinTest;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Ora, System.ComponentModel, Borland.Vcl.StdCtrls;

type
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    oSession: TOraSession;
    oCommand: TOraQuery;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

var
  Form2: TForm2;

implementation

{$R *.nfm}

{ TForm2 }

procedure TForm2.Button1Click(Sender: TObject);
begin
  try
    oCommand.Open;
    ShowMessage(
      oCommand.SQL.Text+sLineBreak+
      'RecordCount: '+oCommand.RecordCount.ToString);
    oCommand.Close;
    oSession.DisConnect;

  except
    on e: exception do
      ShowMessage(e.ToString);
  end;
end;

constructor TForm2.Create(AOwner: TComponent);
begin
  inherited;
  oSession := TOraSession.Create(nil);
  oCommand := TOraQuery.Create(nil);

  oSession.Server := 'MYBASE';
  oSession.Schema := 'MYSCHEMA';
  oSession.Username := test;
  oSession.Password := test;
  oSession.Connect;

  oCommand.Session := oSession;
  oCommand.SQL.Text :=
    '-- ceci est un ééé   éà àéàéà    commantaire   àéàéà'+sLinebreak+
    'Select * from MY_TABLE '+sLinebreak+
    '-- àéàéàé  ';
end;

destructor TForm2.Destroy;
begin
  inherited;
  FreeAndNil(oSession);
  FreeAndNil(oCommand);
end;

end.