[fpc-pascal] Possible RTFM question: is there something like an
bartjunk64 at gmail.com
Mon Aug 20 13:55:02 CEST 2012
On 8/20/12, michael.vancanneyt at wisa.be <michael.vancanneyt at wisa.be> wrote:
> There is no such function.
Thanks for the quick response.
I ended up with this:
function IsRootPath(APath: String): Boolean;
//crude function, it maybe needs support for UNC drives
D := ExtractFileDrive(APath);
Len := Length(D);
System.Delete(APath, 1, Len);
Result := (Length(APath) = 1) and (APath in AllowDirectorySeparators);
More information about the fpc-pascal