Как программно узнать количество строк в текстовом файле?

← →
HaeMa (2006-06-08 17:04) [0]

Помогите пожалуйста!!!

← →
begin...end © (2006-06-08 17:10) [1]

var
I: Integer;
F: TextFile;
begin
...
I := 0;
while not EOF(F) do
begin
ReadLn(F);
Inc(I)
end
...
end

← →
tesseract © (2006-06-08 17:11) [2]

два варианта - посмотреть сколько раз выполниться readln до EOF.

Второй - пролистать файл на количество символов с кодом 10, те перевода строки.

← →
Amoeba © (2006-06-08 17:14) [3]

> Второй - пролистать файл на количество символов с кодом
> 10, те перевода строки

Это удобно сделать отобразив в память и просмотрев как массив побайтово.

function StringsItFile(const FileName:String):Integer; var List:TStringList; begin List:=TStringList.Create; try List.LoadFromFile(FileName); Result:=List.Count; finally List.Free; end; end;

Const
const_buf_size=65536;

function GetLinesCount2(const p_strFileName: string): Int64;
var
Buf: array of Byte;
i, nReaded: Integer;
begin
Result:=0;
SetLength(Buf,const_buf_size);
with TFileStream.Create(p_strFileName,fmOpenRead) do
try
repeat
nReaded:=Read(Buf[0],Length(Buf));
for i:=0 to nReaded-1 do
if Buf[i]=13 then Inc(Result);
until nReaded=0;
finally
free;
end;
end;

Как программно узнать количество строк в текстовом файле? Найти похожие ветки