mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 13:29:28 +02:00
23 lines
576 B
ObjectPascal
23 lines
576 B
ObjectPascal
Program Example34;
|
|
|
|
{ This program demonstrates the ExtractFileName function }
|
|
{$H+}
|
|
Uses sysutils;
|
|
|
|
Procedure Testit(F : String);
|
|
|
|
begin
|
|
Writeln ('FileName : ',F);
|
|
Writeln ('Has Name : ',ExtractFileName(F));
|
|
Writeln ('Has Path : ',ExtractFilePath(F));
|
|
Writeln ('Has Extension : ',ExtractFileExt(F));
|
|
Writeln ('Has Directory : ',ExtractFileDir(F));
|
|
Writeln ('Has Drive : ',ExtractFileDrive(F));
|
|
end;
|
|
|
|
Begin
|
|
Testit (Paramstr(0));
|
|
Testit ('/usr/local/bin/mysqld');
|
|
Testit ('c:\pp\bin\win32\ppc386.exe');
|
|
Testit ('/pp/bin/win32/ppc386.exe');
|
|
End. |