Bonjour

je suis avec Linux
Lazarus 0.9.28 beta et FCP 2.2.4

Dans un memo, je n'arrive pas à afficher les lignes d'un fichier qui contiennent des accents. (alors que je peux les afficher si ça vient d'un Edit. )

voici mon programme de test .

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
unit Unit1; 
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Edit1: TEdit;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 
 
var
  Form1: TForm1; 
 
implementation
 
{ TForm1 }
 
procedure TForm1.Button1Click(Sender: TObject);
begin
     memo1.clear;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
     memo1.append(edit1.text);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
  var f:textfile;
      ligne:string;
begin
     assignfile(f,'test.txt');
     reset(f);
     while not eof(f) do
     begin
          readln(f,ligne);
          memo1.Append(ligne);
     end;
     closefile(f);
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
     memo1.append('Apparamment quand je lis un fichier les lignes avec des caracères accentués ne s''affichent pas . Embêtant...');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
 
end;
 
initialization
  {$I unit1.lrs}
 
end.
et voici le fichier que je veux lire ..
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
1) ceci est la ligne du haut
2) deuxième ligne
3) ligne de fin.
et la 2ème ligne ne s'affiche pas !

si quelqu'un à une idée ...

bonne journée.