1 578
editací
Změny
Založena nová stránka: Hledá soubor v seznamu adresářů. ;Deklarace function FSearch(Path: PathStr; DirList: string): PathStr; ;Režim :Reálný, Chráněný ;Poznámky :Hledá soubor v…
Hledá soubor v seznamu adresářů.
;Deklarace
function FSearch(Path: PathStr; DirList: string): PathStr;
;Režim
:Reálný, Chráněný
;Poznámky
:Hledá soubor v seznamu adresářů, daném parametrem DirList. Adresáře v DirList musejí být odděleny středníky.
:Typ [[PathStr]] je definován v jednotce [[Dos]].
;Viz také
:[[FExpand]]
:[[FSplit]]
:[[GetEnv]]
Vzorový příklad
{ FExpand.PAS }
{ Příklad pro FExpand a FSearch }
uses Dos;
var
S: PathStr;
begin
S := FSearch('TURBO.EXE',GetEnv('PATH'));
if S = '' then
Writeln('TURBO.EXE nenalezeno')
else
Writeln('Nalezeno jako ', FExpand(S));
end.
[[Category:DOS]]
[[Category:Funkce DOS]]
[[Category:Procedury a funkce správy souborů]]
;Deklarace
function FSearch(Path: PathStr; DirList: string): PathStr;
;Režim
:Reálný, Chráněný
;Poznámky
:Hledá soubor v seznamu adresářů, daném parametrem DirList. Adresáře v DirList musejí být odděleny středníky.
:Typ [[PathStr]] je definován v jednotce [[Dos]].
;Viz také
:[[FExpand]]
:[[FSplit]]
:[[GetEnv]]
Vzorový příklad
{ FExpand.PAS }
{ Příklad pro FExpand a FSearch }
uses Dos;
var
S: PathStr;
begin
S := FSearch('TURBO.EXE',GetEnv('PATH'));
if S = '' then
Writeln('TURBO.EXE nenalezeno')
else
Writeln('Nalezeno jako ', FExpand(S));
end.
[[Category:DOS]]
[[Category:Funkce DOS]]
[[Category:Procedury a funkce správy souborů]]