1 578
editací
Změny
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…
;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.
[[Category:DOS]]
[[Category:WinDos]]
[[Category:Procedúry DOS]]
[[Category:Procedury a funkce správy souborů]]
;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.
[[Category:DOS]]
[[Category:WinDos]]
[[Category:Procedúry DOS]]
[[Category:Procedury a funkce správy souborů]]