mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 21:09:31 +02:00
17 lines
296 B
ObjectPascal
17 lines
296 B
ObjectPascal
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.
|