mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 12:11:34 +01:00
15 lines
292 B
ObjectPascal
15 lines
292 B
ObjectPascal
Program Example12;
|
|
uses Dos;
|
|
|
|
{ Program to demonstrate the FSplit function. }
|
|
|
|
var
|
|
Path,Name,Ext : string;
|
|
begin
|
|
FSplit(ParamStr(1),Path,Name,Ext);
|
|
WriteLn('Splitted ',ParamStr(1),' in:');
|
|
WriteLn('Path : ',Path);
|
|
WriteLn('Name : ',Name);
|
|
WriteLn('Extension: ',Ext);
|
|
end.
|