Discussion :

[oneDev]

Bonjour,

J'essaie de charger le contenu d'un fichier texte dans une ListBox, mais je n'arrive pas à afficher correctement les caractères accentués.

j'ai la liste suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Léo
Raphaël
Timéo
Théo
Maël
Clément
Noé
Mathéo
Léon
Kaïs
Naël

Actuellement, je la charge simplement de cette façon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure TForm1.LoadList;
var
  l: TStringList;
begin
  l := TStringList.Create;
  l.LoadFromFile('list.txt');
  ListBox1.Items.Assign(l);
  ListBox1.Items.Add('René');
  l.Free;
end;

Voici le résultat :

• LĂŠo
• RaphaĂŤl
• TimĂŠo
• ThĂŠo
• MaĂŤl
• ClĂŠment
• NoĂŠ
• MathĂŠo
• LĂŠon
• KaĂŻs
• NaĂŤl
• René

Comment puis-je afficher correctement le contenu de la liste ?

Merci de vos conseils.

[SergioMaster]

Bonjour,

Quoi de surprenant quand on sait que D7 n'est pas Unicode. Le fichier texte est lu comme un simple fichier ASCII et malheureusement je ne crois pas qu'il y ait de surcharge de type
LoadFromFile(f, TEncoding.UTF8)

[oneDev]

Non, il n'y a effectivement pas ce type de surcharge...

[yvonic2010]

Bonjour,
Un simple AnsiToUTF8 à la lecture du ListBox ne suffit pas ?

[oneDev]

J'ai fait ce 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
procedure TForm1.LoadList;
var
  l: TStringList;
  i: Integer;
begin
  l := TStringList.Create;
  l.LoadFromFile('list.txt');
//  ListBox1.Items.Assign(l);
 
  for i:=0 to Pred(l.Count) do
    ListBox1.Items.Add(AnsiToUtf8(l[i]));
 
  ListBox1.Items.Add('René');
  l.Free;
 
  ListBox1.items.SaveToFile('save_list.txt');
end;

Mais j'obtiens :

• LĂƒÂŠo
• RaphaĂƒÂŤl
• TimĂƒÂŠo
• ThĂƒÂŠo
• MaĂƒÂŤl
• ClĂƒÂŠment
• NoĂƒÂŠ
• MathĂƒÂŠo
• LĂƒÂŠon
• KaĂƒÂŻs
• NaĂƒÂŤl
• René

[guillemouze]

c'est juste le contraire qu'il faut faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
  ListBox1.Items.LoadFromFile('d:\utf.txt');
  for i := 0 to ListBox1.Items.Count-1 do
    ListBox1.Items[i] := Utf8ToAnsi(ListBox1.Items[i]);

[SergioMaster]

Bonjour,

voilà comment j'ai rempli une TlistBox avec ton fichier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
var SL : TStringList;
begin
SL:=TStringList.Create;
SL.LoadFromFile('prénoms.txt');
Listbox1.Items.Text:=UTF8DECODE(Sl.Text);
SL.Free;
end;

[oneDev]

Merci guillemouze et SergioMaster, cela fonctionne !!
Grand merci à vous.