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:ProjectsProject1'
• Relative path is '..Sharedsomefile.pas'
• Absolute path is 'C:ProjectsSharedsomefile.pas'

I am looking for something like this:

function AbsToRel(const AbsPath, BasePath: string): string;
// '..Sharedsomefile.pas' =
//   AbsToRel('C:ProjectsSharedsomefile.pas', 'C:ProjectsProject1')  
function RelToAbs(const RelPath, BasePath: string): string;
// 'C:ProjectsSharedsomefile.pas' =
//   RelToAbs('..Sharedsomefile.pas', 'C:ProjectsProject1')  

Answer 1

To convert to the absolute you have :

ExpandFileName

To have the relative path you have :

ExtractRelativePath