freepascal.compiler/docs/linuxex/ex67.pp

Program Example67;

uses Linux;

{ 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.