FSplit

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.