recursive Dateisuche -> Algorythmusfragen

[Wuaegner]

HI!

Zu der wiederholten Frage:

Code:

    FindClose(SR); 
  end;                                                             //ist das end ohne begin überfluessig, wo ist der bezug? 


  if ARekursiv then 
    if (FindFirst(ADirectory+'*.*',faDirectory,SR)=0) then 
      try                                                         //** eingefügt 
      repeat 
        if (SR.Name<>'.') and (SR.Name<>'..') then 
          GetFilesInDirectory(ADirectory+SR.Name,AMask,AList,True); 
      until FindNext(SR)<>0; 
      finally                                                     //** eingefügt 
      FindClose(SR); 
    end;                                                          //ist das end ohne begin überfluessig, wo ist der bezug?

bringt die Hilfe das hier:

Code:

Reset(F);

try
 ...  // process file F
finally
  CloseFile(F);
end;

Zitat:

The syntax of a try...finally statement is

try statementList1 finally statementList2 end

Grüße Flo