Změny

Skočit na navigaci Skočit na vyhledávání

FSplit

Přidáno 810 bajtů, 2. 10. 2012, 15:19
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ů]]

Navigační menu