FindNext

Z Delphi & Pascal (česká wiki)
Verze z 2. 10. 2012, 15:18, kterou vytvořil Zdeno Sekerák (diskuse | příspěvky) (Založena nová stránka: ;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…)
(rozdíl) ← Starší verze | zobrazit aktuální verzi (rozdíl) | Novější verze → (rozdíl)
Skočit na navigaci Skočit na vyhledávání
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
FileExpand
FindFirst
TSearchRec


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.