1 578
editací
Změny
Založena nová stránka: Rozdělí jméno souboru do jeho tří složek. ;Deklarace procedure FSplit(Path: PathStr; var Dir: DirStr; var Name: NameStr; var Ext: ExtStr); ;Režim :Reálný, Ch…
Rozdělí jméno souboru do jeho tří složek.
;Deklarace
procedure FSplit(Path: PathStr; var Dir: DirStr; var Name: NameStr; var Ext: ExtStr);
;Režim
:Reálný, Chráněný
;Poznámky
:Typy řetězců PathStr, DirStr, NameStr a ExtStr jsou definovány v jednotce [[Dos]].
;Viz také
:[[FExpand]]
:[[FindFirst]]
:[[FindNext]]
Vzorový příklad
{ Fsplit.PAS }
{ Vzorový příklad pro proceduru FSplit. }
uses Dos;
var
P: PathStr;
D: DirStr;
N: NameStr;
E: ExtStr;
begin
Write('Jméno souboru (WORK.PAS): ');
Readln(P);
FSplit(P, D, N, E);
if N = '' then
N := 'WORK';
if E = '' then
E := '.PAS';
P := D + N + E;
Writeln('Výsledné jméno je ', P);
end.
[[Category:DOS]]
[[Category:Procedúry DOS]]
[[Category:Procedury a funkce správy souborů]]
;Deklarace
procedure FSplit(Path: PathStr; var Dir: DirStr; var Name: NameStr; var Ext: ExtStr);
;Režim
:Reálný, Chráněný
;Poznámky
:Typy řetězců PathStr, DirStr, NameStr a ExtStr jsou definovány v jednotce [[Dos]].
;Viz také
:[[FExpand]]
:[[FindFirst]]
:[[FindNext]]
Vzorový příklad
{ Fsplit.PAS }
{ Vzorový příklad pro proceduru FSplit. }
uses Dos;
var
P: PathStr;
D: DirStr;
N: NameStr;
E: ExtStr;
begin
Write('Jméno souboru (WORK.PAS): ');
Readln(P);
FSplit(P, D, N, E);
if N = '' then
N := 'WORK';
if E = '' then
E := '.PAS';
P := D + N + E;
Writeln('Výsledné jméno je ', P);
end.
[[Category:DOS]]
[[Category:Procedúry DOS]]
[[Category:Procedury a funkce správy souborů]]