nesco, глянь (добавил нижнюю точку Number - номер текущей строки).
searchinfile_mod.rar

Tad, а может в точке onSearch ещё и номер текущей строки в MT-потоке тоже выдавать?

Tad, я бы заменил inc(num) на num := num + 1. Inc, если я не ошибаюсь, функция. Дополнительный функцилнальный вызов быстродействия не прибавит
------------ Дoбавленo в 21.23:

foksov, это лишние тормоза, не стоит этого делать

Может ты и прав. Inc - это даже процедура. Да, и наверное нужно начинать с num:=-1.

Все зависит от того, какой номер считать первым в данном случае -- 0 или 1. Если считать с 0, то стартовое значение должно быть -1

------------ Дoбавленo в 00.06:
И точку я бы переименовал, назвав, к примеру -- NumStr, а то название Number ни о чем не говорит

Проверил
1. inc(num) быстрее чем num := num + 1 Сам удивлен
2. Начальное num:=-1 и только.
3. Согласен. NumStr более информативное.

Tad, а вот это зачем, я че-то не понял


Почему выдаем пустую строку, а не Null
Я че-то не припоминаю, чтобы мы где-то, по onEnd, выдавали пустую строку

nesco,

Редактировалось 1 раз(а), последний 2017-03-06 09:36:24

Tad, а серьезно, а то я нифига не понял, что ты хотел сказать

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

nesco, [flood]без базара г. ость реальный пацан внатуре [/flood]

[flood]
Вот только шифруется[/flood]

[flood]Вы его расхвалили ,значит скоро появится [/flood]

...
А цитата собственноручно переписана со страницы 65, из 2-хтомника "Delphi5 Руководство разработчика" авторы Стив Тейксейра и Ксавье Пачеко 2000 г.
Выложил бы примеры с диска, прилогающегося к этой книге, но на Файлообменник не влезут, 10 мб в архиве

Гы. Будем знать, что это ты


А у тебя есть электронная версия этой книги
А примеры можно кинуть мне на почту