Lecture d'un fichier texte en remontant vers le début fichier

Bonjour à tous,

Je cherche comment, dans Delphi, lire les enregistrements en remontant vers le début du fichier....

Dans un premier temps, je lis le fichier de façon habituelle :

    Repeat
       Readln(fic,Enregistrement);
    Until ((CompareStr('12',Copy(Enregistrement,1,2))=0) OR (Eof(fic)));
    ShowMessage('Je suis sur l'enregistrement 12');

Puis, je veux revenir sur la ligne depuis laquelle je suis partie, donc, remeonter le fichier....

Si quelqu'un a une idée, cela m'interresse beaucoup !!!

Merci !!!!!!


ZZZEvelyne

Bonsoir,

Utilises une StringList et sers toi de l'index

cantador

tout a fait, TStringList si ton fichier texte n'est pas trop gros.

function FaireUnTruc(const str: string; const index: integer): integer;
begin
  ...  Traitement de str et index ...
  ... reussite
   result := 0;
  ... reussite et doit quitter
   result := 1;
  ... erreur
   result := -1;
end;

procedure Machin;
var
  TSL : TStringList;
  S : string;
  N : integer;
begin
  TSL := TStringList.Create;
  try
    for N := TSL.Count-1 downto 0 do
    begin
      S := TSL.Strings[N];
      case FaireUnTruc(S, N) of
        -1: { oops, un probleme }
        0 : { a reussi l'operation }
        1 : { a reussi et doit quitter maintenant} Break; 
      end;
    end;
  finally
    TSL.Free;
  end;
end;

---

Ok !!!!

Merci pour votre aide, je vais partir sur cette piste.
Mais c'est quand même curieux qu'on ne puisse pas remonter un fichier texte......

Bonne journée à tous !!!

ZZZEvelyne

"Mais c'est quand même curieux qu'on ne puisse pas remonter un fichier texte......"

non c'est normal par defaut.
pour lire un fichier a l'envers c'est un chouille plus compliqué et plus lents surtout.
a moins de le mettre a l'envers en memoire, mais c'est pas top quand meme.

---