Модуль VLСверкаПФ не работает

[vk65]

Это смотря как построить файл. На такой вот конструкции, скорее всего, будет завал.

<ИвановИван>
 <ИвановИванИванович>
 </ИвановИванИванович>
</ИвановИван>

И такое несложно разрулить. Нашли "</ИвановИван", затем прочитали следующий символ, если пробел или ">" - значит, оно. Если нет - продолжение поиска.

[vk65]

В общем, будем думать, экспериментировать и смотреть.

Вот подкорректировал для случая с одним пробелом в закрывающем теге. Попробуйте.

[lubezniy]

Вот подкорректировал для случая с одним пробелом в закрывающем теге. Попробуйте.

Посмотрел - и всё-таки сделал предобработку: обрабатывать надо не только пробелы, а ждать, пока пришлют группу файлов с другим "багом" (при соответствии спецификации), как-то не очень хочется. На нормальных файлах (самый большой тестовый пример) заметного уменьшения скорости обработки не было, хотя поводы для оптимизации появились.
Версия обновлена.

[vk65]

Посмотрел - и всё-таки сделал предобработку: обрабатывать надо не только пробелы, а ждать, пока пришлют группу файлов с другим "багом" (при соответствии спецификации), как-то не очень хочется.

Я только принцип показал, там можно было и циклы добавить для замены на пробелы и подсчета количества пробелов. Но так, как Вы сделали - даже лучше. Общая логика работы более прозрачна.

На нормальных файлах (самый большой тестовый пример) заметного уменьшения скорости обработки не было, хотя поводы для оптимизации появились.

Если только на время поиска в строке сильно влияет длина строки. Или, если при наличии, допустим, пяти пробелов найти один и посчитать сколько перед ним будет значительно быстрее, чем делать пять поисков. А если нет, вполне можно оставить как есть.
И ещё, личная просьба. Вы не могли бы при случае в sverka.pas и szv6.pas добавить uses Controls в interface ?

[lubezniy]

Если только на время поиска в строке сильно влияет длина строки. Или, если при наличии, допустим, пяти пробелов найти один и посчитать сколько перед ним будет значительно быстрее, чем делать пять поисков. А если нет, вполне можно оставить как есть.

Пока как есть - проблем особых это не вызывает.

И ещё, личная просьба. Вы не могли бы при случае в sverka.pas и szv6.pas добавить uses Controls в interface ?

Можно, сделаю к следующей версии. Правда, если честно, не понимаю, зачем - визуальных элементов управления в этих юнитах нет.

[vk65]

Правда, если честно, не понимаю, зачем - визуальных элементов управления в этих юнитах нет.

Иначе Delphi 7 не понимает, что такое TDate.

[lubezniy]

Иначе Delphi 7 не понимает, что такое TDate.

Понял. В следующей версии будет.