FSplit

Z Delphi & Pascal (česká wiki)
(přesměrováno z FileSplit)
Skočit na navigaci Skočit na vyhledávání

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.