кол-вл строк в текстовом файле

[maelz]

Подскажите , как определить количество строк в текстовом файле. Заранее благодарен

[Oscar]

maelz, посчитать колличество перносов строк (символ "новая строка") и если он не 0 и первая строка не пустая - добавить единицу

[maelz]

Можно конкретный пример, а то я что-то подзабыл работу с файлами (функция while почему-то зацикливается)

[Duncon]

Если файл не слишком велик сделай так

Код: Выделить всё

List := TStringList.Create;
try
  List.LoadFromFile('C:\FILE.TXT');
  Need_For_you_value := List.Count;
finally
  List.Free;
end;

[Игорь Акопян]

навскидку

Код: Выделить всё

function CalcLF: integer;
var
  f: text;
  s: string;
begin
  Result := 0;
  Assign(f, 'text.txt');
  Reset(f);
  while not EOF(f) do 
  begin
    Readln(f, s);
    Inc(Result);
  end;
end;

while - это скорее цикл

[Naeel Maqsudov]

Можно обойтись без переменной S и делать просто Readln(F);

[vunder]

Второй вариант предпочтительнее, т.к. не грузит весь файл в память, как это делает TStringList