Проблема. Поиск папок и файлов. Delphi7

[Lancer]

procedure ScanDir(StartDir: string; Mask: string ; List: TStrings);
var
  SearchRec: TSearchRec;
  t:string;
begin
  if Mask = '' then
    Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
    Showmessage(inttostr(length(StartDir)));// смотрю из скольки символов состоит путь к папке
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec)=0 then
  begin
    repeat
      Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
          List.Add(StartDir + SearchRec.Name);
        else if (SearchRec.Name <> '..') and (SearchRec.Name <> '.')then begin
       // List.Add(StartDir + SearchRec.Name + '\');
      ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
  end;
until FindNext(SearchRec) <> 0;
FindClose(SearchRec);
end;
end;

проблема такая, я в программе указываю путь к папке, программа сканирует эту папку, НО, если путь к нужной папке в ос состоит из <32 символов то все замечательно, все находит. Если же путь >32 то ничего не хочет искать... Почему? При пошаговой проверке показывает что FindFirst(StartDir + Mask, faAnyFile, SearchRec)=0, тоесть Должен начинаться цикл но нет, он переходит к концу процедуры как будто условие не выполнилось... Причем, раньше, программа работала с куда более длинным путем... После пары вылетов изза ошибок работы с базой начались вышесказанные проблемы(в программе идет добавление из указанной папки информации о файлах в этой папке в базу) , тоесть когда длинный путь не хочет работать... Может эти ошибки с базой както повлияли? Может изза них теперь путь не должен быть длинным? Помогите пожалуйста разобраться, я не пойму в чем дело...

[KORN]

а поиском не судьба воспользоваться7
http://programmersforum.ru/showthrea...ght=TSearchRec
это обсуждалось ни один раз

[Lancer]

Сообщение от KORN

а поиском не судьба воспользоваться7
http://programmersforum.ru/showthrea...ght=TSearchRec
это обсуждалось ни один раз

спасибо конечно за подсказку, но у меня несколько иная проблема. Моя процедура(точнее взята у Михалыча) по сути делает тоже самое что и твоя. Мне просто интересно почему она в определенный момент перестала работать... Я думал я понятно изложил проблему... Повторюсь еще раз, Раньше эта проц работало хорошо. А теперь она не хочет работать именно с папками у которых путь состоит из большого кол-ва символов. Подскажи в каком направлении копать, где искать информацию о длинне пути или еще что...

[Serge_Bliznykov]

то, что вы привели тут, даже не компилируется!
после расстановки операторных скобок - всё работает.
длина каталога более 32 всё в порядке.

вот код:

procedure TForm1.ScanDir(StartDir, Mask: string; List: TStrings);
var
  SearchRec: TSearchRec;
  t:string;
begin
  if Length(Trim(StartDir))=0 then Exit;
  if Mask = '' then Mask := '*.*';
  if StartDir[Length(StartDir)] <> '\' then
    StartDir := StartDir + '\';
    Showmessage(inttostr(length(StartDir)));// смотрю из скольки символов состоит путь к папке
  if FindFirst(StartDir + Mask, faAnyFile, SearchRec)=0 then
  begin
    repeat
      Application.ProcessMessages;
      if (SearchRec.Attr and faDirectory) <> faDirectory then
          Memo1.Lines.Add(StartDir + SearchRec.Name)
        else
          if (SearchRec.Name <> '..')
            and (SearchRec.Name <> '.')then begin
         // List.Add(StartDir + SearchRec.Name + '\');
           ScanDir(StartDir + SearchRec.Name + '\', Mask, List);
          end;
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
 end;
end;

p.s. вместо Вашего TSTringList я для отладки использовал Memo - но это Вы и сами разберётесь...

p.p.s. рабочий пример + исходники на Delphi выложил. можете потестировать..