Discussion :

[trikker]

Bonjour a tous,
J'ai actuellement un fichier texte que je dois parcourrir en entier ligne par ligne.
J'aimerai savoir comment faire merci de votre aide !

[tourlourou]

soit tu le lis ligne par ligne grâce à ReadLn, soit tu l'ouvres dans un StringList grâce à sa méthode LoadFromFile

[trikker]

Ouai moi ca va avec avec ReadLn.
mais comment je peux faire pour faire la boucle pour lire jusqu'a la fin du fichier

[trikker]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
texte:TextFile;
lig : string;
i :integer ;
begin
  assignfile(texte,NomFichier);
  reset(texte);
  for I := 0 to ??????????????????????????? do
  begin
    Readln(texte,lig);
    Liste_Enregistrement.Add(lig);
  end;
end;

[trikker]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
texte:TextFile;
lig : string;
i :integer ;
begin
  assignfile(texte,NomFichier);
  reset(texte);
  while not eof(texte) do begin
  readln(texte,lig);
 
  end;
  closefile(texte);
end;