Extract the drive and directory part of a filename.
Source position: finah.inc line 29
function ExtractFileDir( |
const FileName: UnicodeString |
):UnicodeString; |
const FileName: RawByteString |
):RawByteString; |
ExtractFileDir returns only the directory part of FileName, including a drive letter. The directory name has NO ending directory separator, in difference with ExtractFilePath.
None.
|
Extract the filename part from a full path filename. |
|
|
Extract the path from a filename. |
|
|
Extract the drive and directory part of a filename. |
|
|
Extract the drive part from a filename. |
|
|
Return the extension from a filename. |
|
|
Extract a relative path from a filename, given a base directory. |
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.