powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подскажите как опред.кол-во строк в TXT-файле?
9 сообщений из 9, страница 1 из 1
Подскажите как опред.кол-во строк в TXT-файле?
    #32108406
Iv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Iv
Гость
Считываю TXT файл по строкам в цикле
While eof(file) do
begin
readLn(file,str);
progress.position:=progress.position+1; { хочу сделать индикатор !!!}
end;

Как узнать кол-во строк в файле?
Для этого кол-во строк можно сначала посчитать
While eof(file) do
begin
i:=i+1;
end;
progress.max:=i;
А может есть способ определить их каким то другим образом ?

Спасибо!
...
Рейтинг: 0 / 0
Подскажите как опред.кол-во строк в TXT-файле?
    #32108408
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
можно индикатору говорить чтоб он бежал не по строкам, а по байтам. Размер файла известен, так что нет проблем. А вот кол-во строк неизвестно, и его придется сперва посчитать, тобишь загрузить файл... Так есть ли смысл его потом повторно грузить?
...
Рейтинг: 0 / 0
Подскажите как опред.кол-во строк в TXT-файле?
    #32108513
Фотография ziktuw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
with TStringList.Create do
try
  LoadFromFile(filename);
  LinesCount:=Count;
finally
  Free;
end;
...
Рейтинг: 0 / 0
Подскажите как опред.кол-во строк в TXT-файле?
    #32109111
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
LoadFromFile уже загрузит файл, так что смысл теперь определять кол-во строк?????? Ты хоть тему и цель топика читай!!!
...
Рейтинг: 0 / 0
Подскажите как опред.кол-во строк в TXT-файле?
    #32109398
Фотография ziktuw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А ты хочешь предложить способ узнать количество строк, не открывая файл? Ну, вперед.
...
Рейтинг: 0 / 0
Подскажите как опред.кол-во строк в TXT-файле?
    #32109724
StarWind
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ты наверное хотел сказать не загружая . Нет не хочу, его всеравно придется читать. Вот только для индикатора загрузки... по мойму это глупо. Представь, считываешь файл, считаешь в нем строки, потом удаляешь этот файл с памяти и читаешь его вновь... как бы не за чем. Индикатор можно построить и на байтах довольно хорошо
...
Рейтинг: 0 / 0
Подскажите как опред.кол-во строк в TXT-файле?
    #32109819
Фотография ziktuw
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мой пример не предполагает индикатор за ненадобностью. Мой пример только для определения кол-ва строк.
...
Рейтинг: 0 / 0
Подскажите как опред.кол-во строк в TXT-файле?
    #32109927
mitritch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На фига выгружать и загружать, когда ты можешь работать со StringList'ом?
Причем это быстрее, чем считывать построчно из файла при большом объеме.
...
Рейтинг: 0 / 0
Подскажите как опред.кол-во строк в TXT-файле?
    #32110140
iv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
iv
Гость
Последнее замечание разумно.
В новых проектах я так и делаю, сначала закачиваю LoadFromFile, а потом обрабатываю.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подскажите как опред.кол-во строк в TXT-файле?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]