blob: f29a5987d71c0d36fce6d0569c17a5aaa1d287b7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Program Example67;
uses UnixUtil;
{ Program to demonstrate the FSplit function. }
var
Path,Name,Ext : string;
begin
FSplit(ParamStr(1),Path,Name,Ext);
WriteLn('Split ',ParamStr(1),' in:');
WriteLn('Path : ',Path);
WriteLn('Name : ',Name);
WriteLn('Extension: ',Ext);
end.
|
