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 !!