FindNext
Verze z 2. 10. 2012, 15:42, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (1 revízia: Uses DOS)
- Vrací další položku, která odpovídá jménu a atributům určeným v předchozím volání FindFirst.
- Deklarace
procedure FindNext(var F: TSearchRec);
- Režim
- Windows, Reálný, Chráněný
- Poznámky
- Chyby jsou hlášeny v proměnné DosError; jediný možný chybový kód je 18 (žádné další soubory).
- Viz také
- Atributy souborů - konstanty
Vzorový příklad
{ Findfrst.PAS } { Vzorový příklad pro FindFirst a FindNext. } { Pro Windows: } { uses WinDos,WinCrt; } uses Dos; var DirInfo: SearchRec; { Pro Windows použijte TSearchRec } begin { Pro Windows použijte faArchive } FindFirst('*.PAS', Archive, DirInfo); { Stejné jako DIR *.PAS } while DosError = 0 do begin Writeln(DirInfo.Name); FindNext(DirInfo); end; end.