| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Алгоритм поиска относительного пути... [D7]

ArtemESC ©   (2006-03-01 18:11:00) 

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

---

ArtemESC   (2006-03-01 19:22:00) [1]

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

---

ftpnoob   (2006-03-01 19:15:00) [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

---

Fay   (2006-03-01 18:50:00) [3]

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

---

Наверх