FSplit: Porovnání verzí
Skočit na navigaci
Skočit na vyhledávání
(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…) |
|||
| (Nejsou zobrazeny 2 mezilehlé verze od stejného uživatele.) | |||
| Řádek 17: | Řádek 17: | ||
:[[FindNext]] | :[[FindNext]] | ||
| + | |||
| + | :[[Návratové hodnoty FileSplit]] | ||
| Řádek 42: | Řádek 44: | ||
[[Category:DOS]] | [[Category:DOS]] | ||
| + | [[Category:WinDos]] | ||
[[Category:Procedúry DOS]] | [[Category:Procedúry DOS]] | ||
[[Category:Procedury a funkce správy souborů]] | [[Category:Procedury a funkce správy souborů]] | ||
Aktuální verze z 6. 10. 2012, 20:03
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
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.
