Conversion between absolute and relative paths in Delphi

Question

Are there standard functions to perform absolute <--> relative path conversion in Delphi?

For example:

• \'Base\' path is \'C:\\Projects\\Projec

Answer 1

Another version of RelToAbs (compatible with all Delphi XE versions).

uses
  ShLwApi;

    function RelPathToAbsPath(const ARelPath, ABasePath: string): string;
    var Buff:array[0..MAX_PATH] of Char;
    begin
      if PathCombine(Buff, PChar(IncludeTrailingPathDelimiter(ABasePath)), PChar(ARelPath)) = nil then
        Result := ''
      else Result:=Buff;
    end;