Bonjour, voici mon problème:
Je suis apprentis en alternance informatique (1ère année) et mon tuteur me demande de lui programmer en Delphi un programme  capable de lire un fichier unicode, c'est à dire, de le convertir de manière à ce qu'il soit lisible, enregistrable sous un fichier par exemple .doc et  imprimable.
Le seule problème c'est que je commence seulement à aborder la programmation orienté objet sous java en formation.....
Mon tuteur étant d'une compréhension "hors norme", il ma laissé que deux jours pour lui faire ce programme.
N'ayant aucune base en Delphi je demande donc a n'importe quel personne qui maitriserai ce langage de m'aider car la je suis vraiment dans une sale situation...
Pour l'instant le peu de code que j'ai tenté d'écrire est le suivant:
-------------------------------------------------------------------
unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, Buttons;

type
    TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    OpenFileDialog: TOpenDialog;
    Fichier1: TMenuItem;
    Ouvrir1: TMenuItem;
    SaveDialog1: TSaveDialog;
    PrintDialog: TPrintDialog;
    Memo1: TMemo;
    BitBtn1: TBitBtn;
    Enregistrersous1: TMenuItem;
    Enregistrer1: TMenuItem;
    N1: TMenuItem;
    Miseenpage1: TMenuItem;
    Imprimer1: TMenuItem;
    PrinterSetupDialog: TPrinterSetupDialog;
    procedure Quitter1Click(Sender: TObject);
    procedure Ouvrir1Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Imprimer1Click(Sender: TObject);
    procedure Miseenpage1Click(Sender: TObject);

    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Quitter1Click(Sender: TObject);
begin
      Close;
end;

procedure TForm1.Ouvrir1Click(Sender: TObject);
begin
     if OpenFileDialog.Execute then
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
     Close;
end;

procedure TForm1.Imprimer1Click(Sender: TObject);
begin
      if PrintDialog.Execute then
end;

procedure TForm1.Miseenpage1Click(Sender: TObject);
begin
      PrinterSetupDialog.Execute;
end;

end.
---------------------------------------------------------

Configuration du pc: Windows 2000 pro, Delphi 7 édition pro

Bonjour,
Mon nouveau problème est le suivant:
Mon entreprise reçoit souvant des lettre provenant de pologne, écrit dans un fichier . doc, et à la police Times New Roman.
Lorsque l'on fait un copier/coller dans un fichier .txt Les caractères spéciaux ne sont pas visibles.
Le but de l'application serait de pouvoir ouvrir le fichier .doc et de le convertir en fichier .txt tout en conservant les caractère d'origine.

Pour le moment, j'essaye de tester (en grand debutant que je suis...) de diverse manière en utilisant les canvas mais cela affiche des caractère bizard comme: []&.
Voici le source dans le lequel on essaye avec les caractère chinois( a savoir que mon tuteur est aussi perdu que moi sur le sujet):

procedure XieHanZi(Canvas:TCanvas; x,y:integer; GB:string);
var
     W:PWideChar;
     GBlength, UNILength, WSize:integer;
begin
     GBLength:=Length(GB);
     WSize:=GBLength*2 + 2;
     GetMem(W, WSize);
     ZeroMemory(W,WSize);
     MultiByteToWideChar(CP_UTF8,0,PChar(GB),GBLength,W,WSize);

  // Get length of UNICODE string
   UNILength:=LStrLenW(W);

  // Write the text
  TextOutW(Canvas.Handle, x,y,W,UNILength);

  // Clean up
  FreeMem(W, GBLength*2+2);
end;

procedure TFrameForm.FormPaint(Sender: TObject);
var
     x : integer;
     y : integer;
     row,col:integer;
const
     hh = 10;
begin

     Canvas.Font.Name   :='Times New Roman';
     Canvas.Font.Style  :=[];

     y:=0;
     Canvas.Font.CharSet:=  ANSI_CHARSET              ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  DEFAULT_CHARSET           ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  SYMBOL_CHARSET            ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  SHIFTJIS_CHARSET          ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  HANGEUL_CHARSET           ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  GB2312_CHARSET            ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  CHINESEBIG5_CHARSET       ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  OEM_CHARSET               ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  JOHAB_CHARSET             ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  HEBREW_CHARSET            ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  ARABIC_CHARSET            ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  GREEK_CHARSET             ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  TURKISH_CHARSET           ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  VIETNAMESE_CHARSET        ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  THAI_CHARSET              ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  EASTEUROPE_CHARSET        ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  RUSSIAN_CHARSET           ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  MAC_CHARSET               ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;
     Canvas.Font.CharSet:=  BALTIC_CHARSET            ;    XieHanZi (Canvas,50,  y, #$01+#$26  ); y:=y+20;

end;

end.

-----------------------------------------------
Merci d'avance pour ta réponse!