FPC, удаление директорий и файлов, было: Помогите с процедурой на FPC! Опции

[Билли Боб]

Процедура удаляет папку со всеми файлами и подпапками.

procedure DELE (fd: string);
var
   s: searchrec;
   f: file;
   delf,delfiles: string;

 function STAT (fd: string): string;
 var s: searchrec;
 begin
    stat:='';
    findfirst(fd,anyfile,s); if doserror<>0 then exit;
    if s.attr=VolumeID then findnext(s); if doserror<>0 then exit;
    if (s.attr>=16)and(s.attr<=23) or (s.attr>=48)and(s.attr<=55)
       then stat:='D' else stat:='F';
 end;

begin
   if stat(fd)='F' then begin assign(f,fd); setfattr(f,0); erase(f) end;
   if stat(fd)='D' then
      begin
         delfiles:=fd+'\*.*';
         findfirst(delfiles,anyfile,s);
         while doserror=0 do
            begin
               delf:=fd+'\'+s.name;
               if (s.name<>'.')and(s.name<>'..')and(s.name<>'') then
                  begin
                     if stat(delf)='F' then dele(delf);
                     if stat(delf)='D' then
                        begin
                           {$I-}rmdir(delf);{$I+}
                           if ioresult=5 then dele(delf)
                        end;
                  end;
               findnext(s);
            end;
            rmdir(fd);
      end;
end;

На TP работает, а вот на FPC как-то криво работает. Что-то удаляет,а что-то нет. Если указать просто пустой каталог, то даже его не удаляет.
В чем проблема?

[Lapp]

На TP работает, а вот на FPC как-то криво работает. Что-то удаляет,а что-то нет. Если указать просто пустой каталог, то даже его не удаляет.
В чем проблема?

Проблема в том, что в FP поиск файлов устроен несколько иначе. Тебе нужно после использования FindFirst и FindNext сначала закрыть поиск процедурой FindClose(var f: SearchRec), а потом уже удалять директорию процедурой rmdir. В качестве параметра для FindClose используй ту самую запись, с которой ты делал поиск. Если ты этого не сделаешь, то вообще-то директория все равно удалится, но только после завершения программы (что неприемлемо во многих случаях), поскольку незакрытый поиск держит ее.

Даже если не удаляешь ничего - все равно закрывай поиск, это right thing to do.

А вообще, советую посмотреть еще раз на логику программы, она явно нуждается в улучшении. Например, эти две строки:

   if stat(fd)='F' then begin assign(f,fd); setfattr(f,0); erase(f) end;
   if stat(fd)='D' then

Тут ты два раза вызываешь одну и ту же функцию с тем же параметром: stat(fd). Спрашивается - зачем? Можно, например, заменить на такое:

case stat(fd) of
  'F': begin ... end;
  'D': begin .. end;
end;

Далеко вглубь я не смотрел пока, исправь эти ошибки - тогда продолжим разбор, если хочешь.