Discussion :

[trikker]

Bonjour a tous,

J’ai actuellement besoin de savoir quand faire pour compter le nombre de ligne d’un fichier.
Merci de votre aide !

Mon code :

Code :

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

1
2
3
4
5
 
while not eof (texte_Fichier_lecture) do
      begin
        readln(texte_Fichier_lecture,ligne_lecture);
      End

[rec82]

salut.
j'ai pas delphi devans mois mais je propose ça:
tu peut charger le fichier dans une memo comme ça:

Memo1.lines.LoadFromFile ('c:\a.txt') ;

puis pour de line:

memo1.lines.count

et noublier F1 de delphi.
cordialement rec82

[ShaiLeTroll]

rec82, C'est vrai que charger tout le fichier en mémoire pour compter les lignes c'est super léger !

En partant du code de trikker

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
procedure CountLineInFile(const FileName: string);
var
  FLNC: TextFile;
begin
  Result := 0;
  AssignFile(FLNC, FileName);
  Reset(FLNC);
  try
    while Eof(FLNC) do
    begin
      Inc(Result);
      Readln(FLNC);
    end;
  finally
    CloseFile(FLNC);
  end;
end;

Code que j'ai déjà proposé dans d'autres sujets, ...

sinon avec "Compter lignes fichier texte", et l'on trouve le sujet "Récupération du nombre de lignes dans un fichier" ou le sujet "Compter le nombre de lignes d'un fichier ?"