Lecture de fichier. Boucle [Résolu]

pandaspirit 3 Messages postés samedi 26 novembre 2005Date d'inscription 28 janvier 2006 Dernière intervention - 27 janv. 2006 à 16:37 - Dernière réponse : pandaspirit 3 Messages postés samedi 26 novembre 2005Date d'inscription 28 janvier 2006 Dernière intervention
- 28 janv. 2006 à 21:16
Bonjour !

J'ai un petit soucis avec la lecture de fichier texte...
Sur chaque ligne, entre autres infos, j'ai l'identifiant de la ligne 1,2,3....,n

J'essai de récupérer le nombre de ligne totale du fichier pour insérer à la ligne suivante n+1 comme info.

Voilà ce que j'ai fait dans mon source

var L: TextFile;
nbLigne: longint;
begin
nbLigne := 0;
if FileExists(repertoire+'fichier.txt') then
begin
AssignFile(L,repertoire+'fichier.txt');
Reset(L);
While not SeekEOF(L) do begin
nbLigne := nbLigne + 1;
showmessage('Lecture ' + inttostr(nbLigne));
end;
CloseFile(L);
end;
end;

J'ai aussi tester avec EOF à la place de SeekEOF. Rien n'y fait, je boucle sans fin dans mon while.
Si quelqu'un à une idée pour me sortir de là ;-)
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
f0xi 4304 Messages postés samedi 16 octobre 2004Date d'inscription 9 mars 2018 Dernière intervention - 27 janv. 2006 à 16:46
3
Merci
var
TFT : TStringlist;
begin
TFT := TStringlist.create;
TFT.Loadfromfile(repertoire+'fichier.txt');
showmessage('Nombre de lignes : '+inttostr(TFT.Count));
TFT.Free;
end;

mais ton probleme viens qu'il faut faire comme cela :

nbligne := 0;

while not Eof(L) do begin
Readln(L);
Inc(NbLigne);
end;

ShowMessage(inttostr(nbligne));

<hr size="2" width="100%">La theorie c'est quand on sait tout, mais que rien ne fonctionne.
La pratique c'est quand tout fonctionne, mais que personne ne sait pourquoi.
<hr>

Merci f0xi 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 123 internautes ce mois-ci

Commenter la réponse de f0xi
Meilleure réponse
jlen100 1651 Messages postés samedi 10 juillet 2004Date d'inscription 25 juillet 2014 Dernière intervention - 27 janv. 2006 à 17:28
3
Merci
salut

le plus simple est de charger ton fichier dans une tstringlist: comme
te le dit F0xi et pour insérer à la ligne n+1 tu fais simplement

TFT.Append('texte a ajouter');

si tu veux utiliser par la suite ne fais pas TFT.free et mets TFT en variable globale!

@+

jlen

Merci jlen100 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 123 internautes ce mois-ci

Commenter la réponse de jlen100
pandaspirit 3 Messages postés samedi 26 novembre 2005Date d'inscription 28 janvier 2006 Dernière intervention - 27 janv. 2006 à 16:54
0
Merci
Merci beaucoup !!

Je m'incline devant ta première solution...
Heureusement que je suis novice sur delphi !!! ;-)
Commenter la réponse de pandaspirit
pandaspirit 3 Messages postés samedi 26 novembre 2005Date d'inscription 28 janvier 2006 Dernière intervention - 28 janv. 2006 à 21:16
0
Merci
Merci merci ;-)
Nickel ! ça m'a bien aidé, et j'ai pu avancer !
Commenter la réponse de pandaspirit

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.