HiAsm

Форумы Помощь по пакету FileSearch не хочет искать больше одного расширения. ← Ctrl1 2 345 6 7 8Ctrl →

Ответов: 9906

Рейтинг: 351

#1: 2016-04-05 10:56:53 ЛС | профиль | цитата

flint2, может мы дождемся реальных дел, а не "много буков"

Проверять последнее исправление надо на выдачу на выход оригинальных имен, если они отличаются от приведенных к нижнему регистру
Вот здесь:

#pas
procedure THIFileSearch.OutFiles(const Dir,Name:string);
var fn:string; i:integer;
begin
  fn := Name; {$ifdef F_P}UniqueString(fn);{$endif} CharLower(@fn[1]); 
  ....

-- отсутствие UniqueString приводит к нижнему регистру не только fn, но и Name. Который и попадает на выход. И это сразу видно.Про D7 - ничего не скажу, потому-что у меня его нет. За ненадобностью.

А в аттаче я вижу пока 0 закачек, но сообщение, что все круто.

карма: 9

Форумы Помощь по пакету FileSearch не хочет искать больше одного расширения. ← Ctrl1 2 345 6 7 8Ctrl →