FreePascal.ru

sign
а Padre_Mortius ответит на это

Padre_Mortius писал(а):т.е. Вы сначала записываете в параметр List[i].fullpath путь к элементу, а потом проверяете атрибут fadirectory и меняете его.

Добавлено спустя 59 секунд:
в общем всем спасибо, прога уже работает и радует меня

Padre_Mortius
тогда Ваш код тоже не очень удачен, нужно так)


if ( Info.Attr AND faDirectory ) = faDirectory then
begin
List[i].directory := true;
List[i].fullpath := Path + Info.Name + '/';
end
else
begin
List[i].directory &#58 ...

Astralis
с чего Вы взяли что будут обрабатываться только каталоги?
если внимательно прочитать код, то видно, что в случае, если каталог, то просто пометить что это каталог, и далее обработка следующего элемента (файла или каталога, без разницы)

AbakAngelSoft
с List[] все в порядке

Odyssey ...

валится там, где я написал


repeat
if i <> 0 then
writeln( 'FindNext end' );
if Info&#46;Name = '&#46;' then
continue;
List&#91;i&#93;&#46;name &#58;= Info&#46;Name;
List&#91;i&#93;&#46;fullpath &#58;= Path + Info&#46;Name;
if ( Info&#46;Attr AND faDirectory ) = faDirectory then
begin ...

Добрый день.


function TLocator&#46;Locate( Path &#58; String ) &#58; Boolean;
var
Info &#58; TSearchRec;
i &#58; Integer;
begin
i &#58;= 0;
if ( FindFirst( Path + '*', faAnyFile AND faDirectory, Info ) = 0 ) then
repeat
if Info&#46;Name = '&#46;' then
continue;
List&#91;i&#93;&#46;name ...