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.