FindFirst: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
(Založena nová stránka: Hledá v zadaném adresáři první odpovídající soubor. ;Deklarace procedure FindFirst(Path: PChar; Attr: Word; var F: TSearchRec); ;Režim :Windows, Reálný, Ch…) |
|||
| (Nejsou zobrazeny 2 mezilehlé verze od stejného uživatele.) | |||
| Řádek 12: | Řádek 12: | ||
;Viz také | ;Viz také | ||
| − | :[[ | + | :[[Konstanty atributů souboru]] |
:[[FileExpand]] | :[[FileExpand]] | ||
| Řádek 40: | Řádek 40: | ||
[[Category:DOS]] | [[Category:DOS]] | ||
| + | [[Category:WinDos]] | ||
[[Category:Funkce DOS]] | [[Category:Funkce DOS]] | ||
[[Category:Procedury a funkce správy souborů]] | [[Category:Procedury a funkce správy souborů]] | ||
Aktuální verze z 6. 10. 2012, 20:03
Hledá v zadaném adresáři první odpovídající soubor.
- Deklarace
procedure FindFirst(Path: PChar; Attr: Word; var F: TSearchRec);
- Režim
- Windows, Reálný, Chráněný
- Poznámky
- Hledá v zadaném (nebo aktuálním) adresáři první položku, která odpovídá určenému jménu souboru a sadě atributů.
- Viz také
- Konstanty atributů souboru
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.
