Textdatei: An den Anfang der Datei springen

[mifuno]

Hallo,
ich habe eine Textdatei und 2 Funktion:

Delphi-Quellcode:

function get_DateiZeile : string;
var ergebnis : string;
begin
  readln(Datei,ergebnis);
  get_DateiZeile := ergebnis;
end;



function get_AnzahlZeilen : integer;
var
   anzahl : integer;
        tmp    : string;
        begin
        anzahl := 0;
          while not eof(Datei) do
          begin
       tmp := get_DateiZeile;
       inc(anzahl);
     end;

       get_AnzahlZeilen :=  anzahl;
end;

Wenn ich aber nun get_AnzahlZeilen aufrufe um die Anzahl der Einträge in der Textdatei zu erhalten ist der "Cursor" ja am Ende der Datei. Wenn ich nun wieder "get_DateiZeile" aufrufe ist der "Cursor" aber am Ende der Datei. Wie kann ich wieder an den Anfang springen?

[MrKnogge]

Warum läds du die Datei nicht in eine TStringList und fragst einfach die Eigenschaft Count ab ?

[sniper_w]

TStringList

[yankee]

seek(datei,0);

[Hansa]

Mache ein CloseFile und dann wieder Reset und weiter gehts.