Salut !

Je cherche à lire un fichier .txt et a stocker ses informations dans un tableaux de chaines pour les réutiliser plus tard.
Pour tester si le programme lit bien mon fichier, je veux retranscrire le contenu dans un autre fichier .txt.
J'ai donc écrit ceci :

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
 
var
Ligne : string;
Liste, Liste2 :Textfile;
TListe : array of string;
i : Integer;
 
.
.
.
 
AssignFile(Liste,'C:\MonPath\Liste.txt');
Reset(Liste);
AssignFile(Liste2,'C:\MonPath\Liste2.txt');
Rewrite(Liste2);
i:= 0;
while not EOF(Liste) do
  begin
    Readln(Liste, Ligne);
    TListe[i] := Ligne;
    Writeln(Liste2, TListe[i]);
     i := i+1;
  end;
.
.
.
Et donc ça ne marche pas.
J'ai essayer en créant le fichier avant et en utilisant Append() au lieu de Rewrite(), mais l'effet est le même.

Qu'est ce qui cloche ?