home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 July / Chip_2001-07_cd1.bin / ctenari / Cerny / INSTALLF.EXE / rar / FREETFB / ADD / GETPATHF.ADD < prev    next >
Text File  |  2001-03-24  |  173b  |  11 lines
  1. {pouziva jednotku DOS}
  2. func GetPathFile(SName:PathStr) : string;
  3. variable
  4.   DirStr~D;
  5.   NameStr~N;
  6.   ExtStr~E;
  7. :>
  8.   FSplit(SName, D, N, E);
  9.   GetPathFile == D;
  10. :<
  11.