ReadLn

J'ai plein de problèmes avec la commande read ln.
Je voudrai recuperer des informations sur chaque ligne jusqu'a une ligne qui ne continent plus rien en utilisant repeat, readln, until.
Merci d'avance.
PS : je peux utiliser d'autres fonctions.
@+

Voila un code qui lit un fichier texte jusqu'à la fin du fichier

Il y a deux précautions qui sont prises sur :
- l'existance du fichier
- le type de fichier (test pas orthodoxe mais très pratique)

function LireFichier(Fichier:string):Boolean; var F:TextFile; S:string; begin if not FileExists(Fichier) then begin ShowMessage('Le fichier n''existe pas...'); Result := False; exit; end; if (ExtractFileExt(Fichier)='.txt') or (ExtractFileExt(Fichier)='.TXT') then else begin ShowMessage('Le fichier n''est pas un fichier texte.'); Result := False; exit; end; AssignFile(F,Fichier); Reset(F); while not eof(F) do begin Readln(F,S); showmessage(S); end; CloseFile(F); Result := True; end;

Si tu veux vraiment t'arreter à la premiere ligne vide, il faut rajouter dans la boucle while ceci

while not eof(F) do begin Readln(F,S); showmessage(S); if S='' then break; end;

En fait le fichier existe obligatoirement !
Je le crèe juste avant et je lui telecharge des infos.
Mais je ne comprend pas très bien le reste de la source.
Tu pourrais m'expliquer.
Au passage je m'en sert pour recuperer une liste d'adresses ip pour faire une sorte de client p2p.
@+
~Art~ (saying to be the chikenkiller)

Procedure LireFichier(Fichier:string); var F:TextFile; S:string; begin // Affecte le nom d'un fichier externe à une variable fichier ici F AssignFile(F,Fichier); // Ouvre un fichier existant. Reset(F); // Boucle se terminant lorsque on a lu la dernière ligne de la variable fichier F while not eof(F) do begin // lire la ligne de la variable Fichier F et colle le contenu dans la variable string S Readln(F,S); // Traiter la varaible string S showmessage(S); end; // Ferme un fichier ouvert. CloseFile(F); end;

Merci
~Art~ (saying to be the chikenkiller)