[Fichiers] Erreur incompréhensible

**Clorish** · 14/12/2004, 15h58

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
Var f, g : TextFile;
    Ligne, Ligne2  : String;
begin
AssignFile(f, 'N:\=== PROGRAMATION ===\Borland Delphi\__TESTS__\NVidia TV\TV.txt');
AssignFile(g, 'N:\=== PROGRAMATION ===\Borland Delphi\__TESTS__\NVidia TV\ECRAN.txt');
Reset(f);
reset(g);
While (not EOF(f))do
      Begin
      ReadLn(f,Ligne);
      ReadLn(g, Ligne2);
      If (Ligne <> Ligne2) and (Ligne <> '') then Begin ListBox1.Items.Add(Ligne); ListBox2.Items.Add(Ligne2); End;
      End;
      ShowMEssage('Termiuné');
CloseFile(f);
CloseFile(g);

QQun trouve ce qu'il va pas ??? ce prog ne marche pas .....
PRecisisons : Fichiers text d'env 40Mo
les lignes lues sont du n'importe quoi ..... et surment pas ce que Notepad m'affiche !!

**rbag** · 14/12/2004, 16h17

Pour commencer je mettrais un try..finally pour le CloseFile mais à part ça je ne vois pas grand chose. Il y a juste le EOF(f) que tu ne contrôle pas sur g (il faut donc qu'il soit plus grand que f).

Après j'imagine que c'est normal si tu ne rajoutes dans les listbox que les lignes qui sont différentes entre les deux fichiers. Détaille ton erreur car ce n'est pas super clair (et édite ton poste, le titre est pas non plus d'une clarté absolue)

**John Fullspeed** · 14/12/2004, 16h17

Je commencerais par utiliser une StringList triée et refusant les doublons
Cela te ferais du boulot en moins.
Et apres c'est quoi ton erreur
Le chargement commence-t-il?
Le fichier en sortie est vide?
Soies un peu plus précis si tu veux de l'aide.
John

**Clorish** · 14/12/2004, 16h31

L'erreur est que si je fait un showmessage de Ligne ou ligne 2 j'ai que des trucs incomprehansible au lieu de la ligne text normal d'un reg exporté.

Renvoie : "ÿbf ", " ", etc ....

Mais je crois que les fichiers reg exporté sont code de maniere bizzare .... enfin pas en caractere text normaux.