Jak policzyć ile jest linii w pliku tekstowym?
2008-03-05
17:54:00
17:54:00
Malmak
Data publikacji:
18:54, 5 March 2008
18:54, 5 March 2008
Cześć,
cóż, jeśli mamy do czynienia ze stałą ilością znaków w każdym wierszu, a plik jest zakodowany w 8-bitowym ASCII (każdy znak zajmuje jeden bajt) to dopuszczalne jest podzielenie rozmiaru pliku przez ilość znaków w każdym wierszu.
Jeśli jednak ilość znaków w każdym z wierszy jest różna, należy przejść funkcją Readln przez wszystkie i raczej nie ma szybszego sposobu. Można napisać więc taką funkcję:
function IloscLinii(nazwa_pliku : string) : integer;
var
plik : TextFile;
begin
AssignFile(plik, nazwa_pliku);
Reset(plik);
Result := 0;
while not EOF(plik) Do
begin
Readln(plik);
Inc(Result);
end;
CloseFile(plik);
end;
Zaloguj się aby dodać post.