Количество строк

[МирзоАкмал]

Доброго всем дня, как определить количество строк в текстовом файле

[Mad_Cat]

var f:textfile;

assignfile(f,'путь к файлу');
reset(f);c:=0;
while not eof(f) do
begin
readln(s);inc(c);
end;
closefile(f);

[МирзоАкмал]

Сообщение от Mad_Cat

var f:textfile;

assignfile(f,'путь к файлу');
reset(f);c:=0;
while not eof(f) do
begin
readln(s);inc(c);
end;
closefile(f);

s- это что?

[Delphi_ProGer]

s: string;

[FaTaL]

Можно через TStringList

function GetStringCount (FilePath : string) : integer;
var
  sl : TStringList;
begin
  sl := TStringList.Create;
  sl.LoadFromFile (FilePath);
  result := sl.Count;
  sl.Free;
end;

где FileName - полный путь к файлу.

Кстати, что будет быстрее и правильнее, TStringList или TextFile и AssignFile?

[Kix.IV]

Кстати, что будет быстрее и правильнее, TStringList или TextFile и AssignFile?

Второе. Хотя есть методы, работающие ещё быстрее.

[Аватар]

Кстати, что будет быстрее и правильнее, TStringList или TextFile и AssignFile?

StringList целиком файл в ОП пишет. На больших объемах могут быть проблемы. А так он по идее должен быть быстрей, поскольку не по-записно читает входящий файл

[Kix.IV]

Сообщение от Аватар

StringList целиком файл в ОП пишет. На больших объемах могут быть проблемы. А так он по идее должен быть быстрей, поскольку не по-записно читает входящий файл

Таки нет. StringList гораздо медленнее. Сами посмотрите его код.

[Аватар]

Посмотрел и даже проверил - файл 3.5Mb со стринглистом ~ на 25% быстрее. За счет чтения через FileStream одной командой чтения целиком, пусть и есть накладные расходы в виде SetTextStr

[Kix.IV]

Сообщение от Аватар

Посмотрел и даже проверил - файл 3.5Mb со стринглистом ~ на 25% быстрее. За счет чтения через FileStream одной командой чтения целиком, пусть и есть накладные расходы в виде SetTextStr

Какая версия Delphi?
Только что смотрел в XE3. Там тонна ненужного кода. И проверял тоже, правда разницы не заметил.