fpcdocs/sysutex/ex88.pp


1
2
3
4
5
6
7
8
9

Program example88;

{ This program demonstrates the LastDelimiter function }

uses SysUtils;

begin
  Writeln(LastDelimiter('\.:','c:\filename.ext'));
end.