Split a full-path filename in parts.
Source position: dosh.inc line 113
| procedure FSplit( | 
| path: PathStr; | 
| var dir: DirStr; | 
| var name: NameStr; | 
| var ext: ExtStr | 
| ); | 
None.
| 
 | Search a file in searchpath. | 
program Example12; uses Dos; { Program to demonstrate the FSplit function. } var dir:dirstr; name:namestr; ext:extstr; begin FSplit(ParamStr(1),dir,name,ext); WriteLn('Splitted ',ParamStr(1),' in:'); WriteLn('Path : ',dir); WriteLn('Name : ',name); WriteLn('Extension: ',ext); end.