Форум: "Основная";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];
Вниз
Алгоритм поиска относительного пути... Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.038 c
