Discussion :

[MelkInarian]

Bonjour
Je viens de parcourir l'aide de Delphi 5 à la recherche d'une fonction qui donne le nombre de lignes contenues dans un fichier texte (du genre Filesize pour lequel il est expressément noté qu'il ne faut pas l'employer avec un fichier texte).

Sinon je peux faire une itération, lire et compter. Mais s'il existe une fonction toute prête il serait plus "propre" de l'utiliser.

Merci

[Pedro]

Salut
et TStringList:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function NbLignesDansFichier(const FileName: string);
var t: TStringList;
begin
  t := TStringList.Create;
  try
    t.LoadFromFile(FileName);
    Result := t.Count;
  finally
    t.Destroy;
  end;
end;

Code non-testé

?

[MelkInarian]

Salut
et TStringList:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function NbLignesDansFichier(const FileName: string);
var t: TStringList;
begin
  t := TStringList.Create;
  try
    t.LoadFromFile(FileName);
    Result := t.Count;
  finally
    t.Destroy;
  end;
end;

Code non-testé

?

Merci pour le code et la piste!

[e-ric]

Remarque : Solution simple pour pertinente pour les petits fichiers.

cdlt