Текущий архив: 2006.04.02;
Скачать: CL | DM;

Вниз

Алгоритм поиска относительного пути...   Найти похожие ветки 

← →
ArtemESC ©   (2006-03-01 18:11) [0]

Доброго времени суток...
 Не подскажите алгоритм поиска относительного
        пути, от одного каталога к другому...

---

← →
Fay ©   (2006-03-01 18:50) [1]

Запиши на бумажке по-русски, как ты этот путь вычисляешь в уме. Переведи на Delphi.
И будет тебе щястье!

---

← →
ftpnoob   (2006-03-01 19:15) [2]

function SlashToBackSlash( const str: string ) : string;
var
 a: dword;
begin
 result := str;
 for a := 1 to length( result ) do
   if result[a] = "/" then
     result[a] := "\";
end;

function TransLatePath( const APathname, homeDir: string ) : string;
var
 tmppath: string;
begin
 result := SlashToBackSlash( homeDir ) ;
 tmppath := SlashToBackSlash( APathname ) ;
 if homedir = "/" then
 begin
   result := tmppath;
   exit;
 end;

 if length( APathname ) = 0 then
   exit;
 if result[length( result ) ] = "\" then
   result := copy( result, 1, length( result ) - 1 ) ;
 if tmppath[1] <> "\" then
   result := result + "\";
 result := result + tmppath;
end;

но под никсы. учитывай то, что слэш в другую сторону :) и не грей моск.
тебе нужен именно:

function TransLatePath( const APathname, homeDir: string ) : string;

надеюсь поможет )

(с) Indy Crew

---

← →
ArtemESC ©   (2006-03-01 19:22) [3]

>>ftpnoob   (01.03.06 19:15) [2]
       Спасибо!!, но никак не пойму что тут за обратные слеши "/"...

---

Страницы: 1 вся ветка

Текущий архив: 2006.04.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.048 c