pliki textowe - ilosc rekordow

Jak odczytac ilosc wierszy w pliku tekstowym typu textFile. Jest opcja FileSize ale ona zwraca wielkośc pliku w bajtach. Przeglądałem helpa ale nic na ten temat nie widzę.

ilosc wierszy to nic innego jak ilosc znakow #13#10 (albo #10#13 - nigdy nie pamietam)

migajek napisał(a)

ilosc wierszy to nic innego jak ilosc znakow #13#10 (albo #10#13 - nigdy nie pamietam)

Zależy, czy po ostatnim wyrazie będzie Enter :).

//DOPISANE
Czepiam się pierdół, wiem [diabel] .

Po prostu zlicz sobie linie występujące w pliku

ilosc:=0;
assignfile(f,plik);
reset(f);
while not eof(f) do
begin
  readln(f,linia);
  ilosc:=ilosc+1;
end;
closefile(f);

Artur napisał(a)

Po prostu zlicz sobie linie występujące w pliku

ilosc:=0;
assignfile(f,plik);
reset(f);
while not eof(f) do
begin
  readln(f,linia);
  ilosc:=ilosc+1;
end;
closefile(f);

W przypadku np. słownika wyrazów z Kurnika, to będzie trwało nieskończonośc. Chyba łatwiej ustalić w założeniach, że na końcu pliku ma na przykład nie być Entera.