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?