В текстовом файле посчитать количество строк

@DeSSmO · Регистрация: 23.10.2015

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста
как посчитать кол-во строк в текстовом файле

@FalleNSofT · 03.12.2015, 07:31

DeSSmO, ну попробуй так:

Delphi

function strcount(txtfile:string):integer;
begin
  with TStringList.Create do
  try
    LoadFromFile(txtfile);
    result:=Count;
  finally
    free;
  end;
end;

@Kitayets · 03.12.2015, 15:00

FalleNSofT, а если компьютер 32-битный, а файл занимает больше чем 3.5 Гб (больше 4 ГБ)?

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

@FalleNSofT · 03.12.2015, 15:11

Kitayets, извини, но я писал автору темы, если ему это не подходит, то пусть он сам напишет.
Я привёл простейший пример, который подходит в большинстве случаев (исключение, как Вы и написали, файлы большого размера).

@DeSSmO · 04.12.2015, 19:07 **[ТС]**

Спасибо, очень помог)

@DeSSmO 0 / 0 / 1 Регистрация: 23.10.2015 Сообщений: 42
		1
	В текстовом файле посчитать количество строк 02.12.2015, 23:37. Показов 3669. Ответов 4 Метки нет (Все метки) Помогите пожалуйста как посчитать кол-во строк в текстовом файле 0

@Kitayets 438 / 367 / 132 Регистрация: 09.09.2011 Сообщений: 1,334
	03.12.2015, 15:00	3
	FalleNSofT, а если компьютер 32-битный, а файл занимает больше чем 3.5 Гб (больше 4 ГБ)? загрузить такой файл в оперативную память не получится... 0

@FalleNSofT 60 / 44 / 24 Регистрация: 27.02.2013 Сообщений: 98
	03.12.2015, 15:11	4
	Kitayets, извини, но я писал автору темы, если ему это не подходит, то пусть он сам напишет. Я привёл простейший пример, который подходит в большинстве случаев (исключение, как Вы и написали, файлы большого размера). 0

@DeSSmO 0 / 0 / 1 Регистрация: 23.10.2015 Сообщений: 42
	04.12.2015, 19:07 [ТС]	5
	Спасибо, очень помог) 0

Опции темы

В текстовом файле посчитать количество строк

Решение