'재귀호출' 태그의 글 목록

'재귀호출'에 해당되는 글 1건

2007. 12. 5. 15:14

function TfmBackUp.FindFile(FolderName: String): Integer;
var
RowIndex : Integer;
SR : TSearchRec;
begin
if (findFirst(FolderName+'\*.*',faAnyFile,Sr)) = 0 then
   repeat
   if (Sr.Name <> '.') and (Sr.Name <> '..') then
   begin
   if (SR.Attr and faDirectory) = faDirectory then
   begin
   FindFile(FolderName + '\'+SR.Name);
   end
   else
   ListBox1.Items.Add(Sr.Name);
   end;
   until FindNext(Sr) <> 0;
FindClose(Sr);
end;