[RESOLVED] Get absolute path of file or directory

[bubulemaster]

Hi,

do you know if in Lazarus or Freepascal, we can find a function to get absolute path of example '/truc/../something' -> '/something'.

I found nothing about it in this forum or on google

Thanks

[theo]

In unit FileUtil, there are

function CreateAbsoluteSearchPath(const SearchPath, BaseDirectory: string): string;
function CreateRelativePath(const Filename, BaseDirectory: string): string;

Don't know it this is what you're looking for.

[bubulemaster]

Not really.

Exemple, on windows :

  writeln(
      CreateAbsoluteSearchPath(
          '/truc/../machin',
          '/bidule/')) ;

Out : /bidule/\/truc/../machin

  writeln(
      CreateAbsoluteSearchPath(
          'c:\truc\..\machin',
          'c:\bidule\')) ;

Out : c:\truc\..\machin

I going create my own function

Thanks for your help

[eny]

ExpandFileName?

[mmab]

You can use parse function to extract what you want from the directory and

Code: [Select]

function Parse(Char, S: string; Count: Integer): string;
var
  I: Integer;
  T: string;
begin
  if S[Length(S)] <> Char then
    S := S + Char;
  for I := 1 to Count do
  begin
    T := Copy(S, 0, Pos(Char, S) - 1);
    S := Copy(S, Pos(Char, S) + 1, Length(S));
  end;
  Result := T;
end;   
CALL:
for ex.you want the first section of the dirname separated by  '\' under windows :
             {$IFDEF WINDOWS}
                F1 := Parse('\', dirname ,1)
             {$ENDIF}
you can use this function to get different parts of the dirname and do what you want

[eny]

StrUtils.ExtractWord?

[bubulemaster]

ExpandFileName?

Yes ! This is what I need.

Thank you