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 :
 

 
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 ?

Salut
 
Je me demande si, quand tu déclare ton array of string tu devrait pas faire plutôt:
 
TListe : array [1..1000] of string;
 
enfin 1000 j'ai mis large ça dépend de tes txt
 
peut être qu'on peut sans mais si ça marche pas ça vient surement de ça, quand tu fait Writeln(Liste2, TListe[i]); si Tliste[i] est vide ou pas bon c'est sûr de ne pas marcher
 
déja pour tester fait: Writeln(Liste2, Ligne);
 
tu auras déja une copie
 
et n'oublie pas les closefile(liste1); et closefile(liste2);  

 Salut ,
 
 Tu peux utiliser SetLength  :
 
 while not EOF(Liste) do
  begin
  ...
   SetLength(TListe , i+1);
   Readln(Liste , TListe(i);
   ...  
  end;
 

je pense que le code ne marche pas parceque tu lui declare un tableau dynamique (array of string) et que tu le remplis sans lui avoir prealablement donné une taille a l'aide de setlength.

au delà de ça je ne comprend pas pourquoi tu t'encombre de ce tableau, tu peux tres bien ecrire directement a partir de ce que tu lis.

En fait c'est du tableau dont j'ai besoin, pas de Liste2.txt, je l'utilise simplement pour contrôler que ma partie lecture est bonne (et accessoirement pour apprendre la partie écriture).
 

 
Voilà un code plus complet, peut être y a t-il des erreurs avant qui empêchent le déroulement correct de l'opération.

bah....tu as quoi comme erreur car chez moi ton code marche parfaitement et copie bien le fichier. (il remplit aussi le tableau).

Je ne sais pas d'ou venait l'erreur.
Tout ce que je sais, c'est que finalement j'ai utilisé un TStringList au lieu d'un tableau standardet que ça fonctionne parfaitement.