NB Ligne dans un fichier texte

salut, comment connaître le nombre de ligne dans un fichier txt ?

soit F un fichier texte déclaré :
f : file of text;
L : string;

Alors, comme chaque ligne peut avoir un longueur variable, il n'y a pas d'autre solution que de parcourir le fichier du début à la fin :
AssignFile(F, 'MonFichier.txt');
Reset(F);
i:=0;
While not Eof(F) do
begin
Readln(F, L);
Inc(i);
end;
CloseFile(F);

I contient alors le nombre de lignes. Mais, je le répète, c'est pour le cas où la longueur des lignes n'est pas connue.

Regardes l'excellent didacticiel sur les fichiers sur le site de Frédéric BEAULIEU.

May Delphi be with you.


-------------------------------
Réponse au message :
-------------------------------

salut, comment connaître le nombre de ligne dans un fichier txt ?

Sinon il suffit de charger le fichier dans un TStringList :

Try
slt:= TstringList.create;
slt.LoadFromFile(sF);
iNbLigne:= slt.Count-1;
finally
slt.free;
end;

iNbLigne contient le nombre de ligne du fichier. (il faut que les lignes du fichier se finissent par un retour chariot et/ou un fin de ligne (LF et/ou CR).



-------------------------------
Réponse au message :
-------------------------------

salut, comment connaître le nombre de ligne dans un fichier txt ?