lecture d un fichier en commencant par la fin

bonjour
je voudrais lire un fichier text en commencant par la fin en arriere

quelqu un pouurai m aider ?
merci

Il faut d'abord savoir ce que tu entends par la fin du fichier ;) Est-ce le dernier caractère, la dernière ligne ?
Si c'est par ligne, je préconise de toute façon la lecture complète au moyen d'un TStrings et puis boucler de la fin au début :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

with TStringList.Create do try LoadFromFile(NomDuFichier); for I := Count-1 downto 0 do begin Ligne := Strings[I]; // Traitement sur Ligne end; finally Free; end;

---

si c'est un autre type de fichier (Fichier typé) alors voir : seek et FileSize dans l'aide de delphi

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

procedure TForm1.Button1Click(Sender: TObject); var f: file of Byte; size: Longint; i: Integer; begin if OpenDialog1.Execute then begin AssignFile(f, OpenDialog1.FileName); {$i-} Reset(f); if ioresult<>0 then exit; {$i+} try size := FileSize(f); Seek(f, size-1); ..... finally CloseFile(f); end; end; end;

---

Citation:

---

Envoyé par sjrd

Il faut d'abord savoir ce que tu entends par la fin du fichier ;) Est-ce le dernier caractère, la dernière ligne ?
Si c'est par ligne, je préconise de toute façon la lecture complète au moyen d'un TStrings et puis boucler de la fin au début :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

with TStringList.Create do try LoadFromFile(NomDuFichier); for I := Count-1 downto 0 do begin Ligne := Strings[i]; // Traitement sur Ligne end; finally Free; end;

---

---

clea marche bien

j usqu a quel taile de fichier le tstringlist marche correctement ?

Bonjour,

Pour la taille regarde l'aide sur TStringList.Capacity

Cordialement

Citation:

---

Envoyé par m.nico

j usqu a quel taile de fichier le tstringlist marche correctement ?

---

Jusqu'à la taille de ta RAM ;)

merci pour les reponses