dobrý denmám proceduru na rekurzivní načítání souborů, načítám všechny soubory podle masky *.*, ale potřebovala bych z načítání vyloučit např. soubor typu .rar, zkoušela jsem to příkazem Continue, ale nefunguje mi to... poraďte mi prosím kde dělám chybuprocedure Najdi(mask:string);var search:TSearchRec; verz:string; such:string;begin such:=ExtractFileName(mask); verz:=ExtractFilePath(mask); if verz[length(verz)]<>'\' then verz:=verz+'\'; if FindFirst(mask,$23,search)=0 then begin repeat form1.ListBox1.Items.Add(verz+search.Name); Application.ProcessMessages; until FindNext(search)<>0; end; if FindFirst(verz+'*.*',fadirectory,search)=0 then begin repeat if (search.name='*.rar') then Continue; if ((search.Attr and fadirectory)=fadirectory) and (search.name[1]<>'.') then begin Najdi(verz+search.name+'\'+such); end; until FindNext(search) <>0; FindClose(search); end;end;