blob: 2e1a8776536ceeadeaec34b522a4ca122bee7e6c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
Program Example67;
uses oldlinux;
{ 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.
|
