Главная страницаОбратная связьКарта сайта

Количество строк в текстовом файле

Если файлы не слишком велики, вы можете сделать так:


List := TStringList.Create;
try
  List.LoadFromFile("C:\FILE.TXT");
  Gauge.MaxValue := List.Count;
finally
  List.Free;
end;

Мы читаем в память весь текст, и кроме подсчета строк этот код ничего не делает. Другая идея заключается в использовании не счетчика строк, а счетчика байт. В самом начале вы запрашиваете размер файла (используя функцию Delphi FileSize), и в цикле проходите все байты, как вы делали это со строками. Цикл может выглядеть примерно так (предположим, вы используете стандартный паскалевский тип TEXT):


Gauge.MaxValue := FileSize(TextFile);
Reset(TextFile);
while not eof(TextFile) do
begin
  Readln(TextFile, Line);
  { Обработка строки }
  with Gauge do
  begin
    Progress := Progress + Length(Line) + 2; { 2 для CR/LF }
    Refresh;
  end;
end;


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Количество строк в текстовом файле", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info