это глупо но нужно...

← →
Михайлов Антон © (2003-04-16 20:28) [0]

как мне сосчитать программно строки в текстовом файле формата txt??

← →
Тих (2003-04-16 20:43) [1]

Нет никакой ложки. Нет никаких строк. Есть символ 0x0A. Вот его и считай.

← →
Михайлов Антон © (2003-04-16 20:44) [2]

можно пример??

← →
Anatoly Podgoretsky © (2003-04-16 21:09) [3]

На моем сайте программа Project Analizer, маленько приложить напильник, если для одного файла

← →
Ihor Osov'yak © (2003-04-16 21:18) [4]

Да уж..

... var fInp:text; count:integer; s:string; begin Assign(fInp,"some.txt"); Reset(fInp); count := 0; try while not eof(fInp) do begin ReadLn(fInp,s); inc(count); end; finally CloseFile(fInp); end; // в count - количество строчек. Если конечно не было ошибки IO end;

← →
MsGuns © (2003-04-16 21:39) [5]

var
s: TStrings;
begin
s := TStrinList.Create;
s.LoadFromFile("MyFile.txt");
qrecInFile := s.Count;
s.Free;

:)))

← →
Ihor Osov'yak © (2003-04-16 22:23) [6]

2 MsGuns © (16.04.03 21:39)

Оно то так. Но обработайте своим методом файлик на несколько мегабайт. Можно и десятков... :))) и еще раз :)))

Хотя справедливости ради, когда файлы заведомо маленькие и мне к тому же лень, то я работаю примерно так, как вы предлагаете..

Да, и для постановки всех точек - см. Тих (16.04.03 20:43) +
asm + апищные ф-ции - будет немного быстрее. Да, и несколько дней назад здесь мастера рассматривали подобный вопрос в плане быстродействия.. Там обсуждался вариант с использованием файлов, мапируемых в память. Очень интересная идея, но я к сожалению потерял ветку, так что не знаю чем спор окончился ..

← →
Плохой человек (2003-04-16 22:36) [7]

Обожаю! Заходишь в раздел "Потрепаться", смотришь - пустяковый вопрос в теме, а постов то.... завались!

2 Плохой человек (16.04.03 22:36)

Имхо, в "потрепаться" иногда инетресные вещи пробегают..

да, рискну предположить, что этот сайт во многом благодаря "потрепаться" успехом пользуется..

http://delphibase.endimus.com/?action=viewfunc&topic=fileattr&id=10366

это глупо но нужно... Найти похожие ветки