FSplit: Porovnání verzí

Z Delphi & Pascal (česká wiki)
Skočit na navigaci Skočit na vyhledávání
 
Řádek 44: Řá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
FindFirst
FindNext
Návratové hodnoty FileSplit


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.