[fpc-pascal] Possible RTFM question: is there something like an IsRootPath() function?

Bart 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
  var
    D: String;
    Len: Integer;
  begin
    D := ExtractFileDrive(APath);
    Len := Length(D);
    System.Delete(APath, 1, Len);
    Result := (Length(APath) = 1) and (APath[1] in AllowDirectorySeparators);
  end;

Bart



More information about the fpc-pascal mailing list