кол-вл строк в текстовом файле
Добавлено: 13 апр 2006, 21:43
Подскажите , как определить количество строк в текстовом файле. Заранее благодарен
Страница 1 из 1
Добавлено: 13 апр 2006, 22:34
maelz, посчитать колличество перносов строк (символ "новая строка") и если он не 0 и первая строка не пустая - добавить единицу
Добавлено: 14 апр 2006, 00:00
Можно конкретный пример, а то я что-то подзабыл работу с файлами (функция while почему-то зацикливается)
Добавлено: 14 апр 2006, 10:03
Если файл не слишком велик сделай так
Код: Выделить всё
List := TStringList.Create;
try
List.LoadFromFile('C:\FILE.TXT');
Need_For_you_value := List.Count;
finally
List.Free;
end;Добавлено: 14 апр 2006, 10:16
навскидку 
while - это скорее цикл 
Код: Выделить всё
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;
Добавлено: 21 апр 2006, 14:30
Можно обойтись без переменной S и делать просто Readln(F);
Добавлено: 10 май 2006, 12:34
Второй вариант предпочтительнее, т.к. не грузит весь файл в память, как это делает TStringList