Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подскажите как опред.кол-во строк в TXT-файле? / 9 сообщений из 9, страница 1 из 1
19.02.2003, 06:53
    #32108406
Iv
Iv
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите как опред.кол-во строк в TXT-файле?
Считываю 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
| Ответить | Цитировать | Написать  
19.02.2003, 07:12
    #32108408
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите как опред.кол-во строк в TXT-файле?
можно индикатору говорить чтоб он бежал не по строкам, а по байтам. Размер файла известен, так что нет проблем. А вот кол-во строк неизвестно, и его придется сперва посчитать, тобишь загрузить файл... Так есть ли смысл его потом повторно грузить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.02.2003, 10:17
    #32108513
ziktuw
ziktuw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите как опред.кол-во строк в TXT-файле?
Код: plaintext
1.
2.
3.
4.
5.
6.
with TStringList.Create do
try
  LoadFromFile(filename);
  LinesCount:=Count;
finally
  Free;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.02.2003, 06:00
    #32109111
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите как опред.кол-во строк в TXT-файле?
LoadFromFile уже загрузит файл, так что смысл теперь определять кол-во строк?????? Ты хоть тему и цель топика читай!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.02.2003, 13:24
    #32109398
ziktuw
ziktuw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите как опред.кол-во строк в TXT-файле?
А ты хочешь предложить способ узнать количество строк, не открывая файл? Ну, вперед.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2003, 04:23
    #32109724
StarWind
StarWind
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите как опред.кол-во строк в TXT-файле?
ты наверное хотел сказать не загружая . Нет не хочу, его всеравно придется читать. Вот только для индикатора загрузки... по мойму это глупо. Представь, считываешь файл, считаешь в нем строки, потом удаляешь этот файл с памяти и читаешь его вновь... как бы не за чем. Индикатор можно построить и на байтах довольно хорошо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2003, 12:59
    #32109819
ziktuw
ziktuw
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите как опред.кол-во строк в TXT-файле?
Мой пример не предполагает индикатор за ненадобностью. Мой пример только для определения кол-ва строк.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2003, 15:01
    #32109927
mitritch
mitritch
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите как опред.кол-во строк в TXT-файле?
На фига выгружать и загружать, когда ты можешь работать со StringList'ом?
Причем это быстрее, чем считывать построчно из файла при большом объеме.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
22.02.2003, 08:40
    #32110140
iv
iv
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Подскажите как опред.кол-во строк в TXT-файле?
Последнее замечание разумно.
В новых проектах я так и делаю, сначала закачиваю LoadFromFile, а потом обрабатываю.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Подскажите как опред.кол-во строк в TXT-файле? / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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