Есть переменная s:string, в нее забит путь, что-то типа "file.bmp" или "c:\file.bmp". Как узнать, записан ли в переменную абсолютный, или относительный путь?

Если абсолютный путь - это file.bmp, то вот следующая функция:

Код

function IsAbsolute(path: string): boolean; begin  if path = ExtractFileName(path) then result := true  else result := false; end;

В противном случае поменяй true на false и наоборот в теле функции.

NiJazz
Нет, абсолютный - это полный адрес, а только имя файла - относительный. Но в любом случае, как попробую - дам знать
Добавлено @ 18:59
NiJazz
Кстати, по-моему я так уже пробовал. И если мне не изменяет память - прога не скомпилилась

[FROM_OFFLINE]
Однако же это натолкнуло меня на мысль, которая написала мне функцию

Код

function IsAbsolute(FName:String):String; var Final:String; begin Final:=ExtractFileName(Fname); if Final = FName then Result:=ExtractFilePath(Application.ExeName)+Final //относительный else if Final <> FName then Result:=Fname; //асболютный end; procedure TForm1.Button1Click(Sender: TObject); begin IsAbsolute('file.bmp') end; procedure TForm1.Button2Click(Sender: TObject); begin IsAbsolute('C:\file.bmp') end;

Не слишком красиво, но работает. Если у кого есть лучший вариант - жду с нетерпением
[/FROM_OFFLINE]

Это сообщение отредактировал(а) p0s0l - 30.9.2005, 17:34

Можно еще так попробовать:

Код

function IsAbsolute(path: string): boolean; begin  Result := Pos(':', path) <> 0; end;

т.к. ":" всегда присутствует в абсолютных путях, а в имени файла он не может встречаться (если мне не изменяет память...)

p0s0l
Кстати это идея... Но т.к. я уже свою функцию всунул везде. где мне надо было, менять не стану

Borland_Delphi_6

Цитата

Кстати, по-моему я так уже пробовал. И если мне не изменяет память - прога не скомпилилась smile

Я пробовал прогнать, всё работало нормально.
Добавлено @ 21:53
Ну если тебе точно надо подстраховаться, сделай так:

Код

procedure TForm1.Button1Click(Sender: TObject); ////////////////////////////////////////////////  function IsAbsolute(path: string): boolean;  begin    if path = ExtractFileName(path) then result := false    else result := true;  end; //////////////////////////////////////////////// var path: string; begin  path := 'C:\MyDir\Myfile.txt';  if (Pos(path, ':') < 1)      and (Pos(path, '\') < 1)      and IsAbsolute(path) then        ShowMessage(ExtractFileName(path)); end;

Но я же сказал, что уже все сделал

Цитата(p0s0l @ 16.1.2005, 21:24)

т.к. ":" всегда присутствует в абсолютных путях, ...

Это не так. Вот примеры абсолютных путей в которых не присутствует ':' :
\Вася\Петя\Маша.txt - абсолютный путь от текущего устройства
\\KidsComputer\DriveC\Program Files\Borland\Delphi6\readme.txt - абсолютный путь для сетевого устройства

Петрович, это правильно подмечено

А как относиться к путям типа:
..\..\MyDir\my.bmp
.\my.bmp
или такое извращение:
\\server\common\files\..\doc\.\my.bmp

Это как считать? Абсолютные или относительные?

Я думаю, что абсолютные - которые включают диск: или \\

Может все таки Pos(st1,'\')>0 ?

Цитата(Snowy @ 18.1.2005, 10:55)

А как относиться к путям типа: ..\..\MyDir\my.bmp .\my.bmp или такое извращение: \\server\common\files\..\doc\.\my.bmp

А в чем вопрос?
..\..\MyDir\my.bmp и .\my.bmp это однозначно относительные пути.
а
\\server\common\files\..\doc\.\my.bmp - однозначно абсолютный.
А чтобы не было сомнений абсолютным путем следует считать любой путь, который однозначно определяет каталог (папку) вне зависимости от того, какой каталог является текущим в данный момент (.\). Например для ..\..\MyDir\my.bmp, здесь речь идет о каталоге MyDir "растущего" из каталога который находится на два уровня выше текущего каталога.
Ну а с .\my.bmp еще проще. Речь идет о файле my.bmp находящимся в текущем каталоге.
С \\server\common\files\..\doc\.\my.bmp тоже все просто: это полностью эквивалентно \\server\common\doc\my.bmp. Т.е. этот путь ну ни как не зависит от того какой каталог текущий.

Вооще то, такие вещи надо знать.

Цитата(SlaUr @ 18.1.2005, 11:17)

Может все таки Pos(st1,'\')>0 ?

Нет. Есть такой вариант: a:\x\y.bmp - тут твой вариант ошибется.

Более того, бывают и такие варианты: a:y.bmp. Это относительный путь! Он зависит от того, какой каталог текущий на девайсе a:.
Напомню, тем кому не довелось работать под DOS: Для каждого имеющегося системе логического диска хранится значение текущего каталога. Более того, эти значения индивидуальны для каждого процесса запущенного в системе.

Могу привести свою реализацию соответствующих функций, не претендующих на полноту

Код

function IsAbsolutePath (const Path :String) :Boolean;  // Возвращает True если в Path указан абсолютный путь. Т.е. путь  // начинается либо с имени устройства, либо с имени машины, либо  // с корневого каталога.  // Пустая строка не считается абсолютным путем. begin  Result :=   ((Length(Path) > 0) and (Path[1] = PathDelim ))           or ((Length(Path) > 1) and (Path[2] = DriveDelim))   ; end; function IsRelPath (const Path :String) : Boolean;  // Возвращает True если в Path указан относительный путь. (not IsAbsolutePath)  // Пустая строка считается относительным путем. begin  Result := not IsAbsolutePath(Path); end; function IsDevicedPath (const Path :String) :Boolean;  // Возвращает True если путь начинается с имени устройства. begin  Result := (Length(Path) >= 2) and (Upcase(Path[1]) in ['A'..'Z']) and (Path[2] = ':')   ; end; function IsLocalPath (aPath :String) :Boolean;  // Возвращает True если путь aPath на локальном устройстве. begin  Result := (Pos('\\',aPath)<>1) and (ExpandUNCFileName(aPath)=ExpandFileName(aPath)); end;

PathDelim и DriveDelim определены в SysUtils. Если не хочется "тянуть" его за собой, просто добавьте

Код

const  PathDelim  = {$IFDEF MSWINDOWS} '\'; {$ELSE} '/'; {$ENDIF}  DriveDelim = {$IFDEF MSWINDOWS} ':'; {$ELSE} '';  {$ENDIF}  PathSep    = {$IFDEF MSWINDOWS} ';'; {$ELSE} ':'; {$ENDIF}

Давайте вспомним еще о специальных девайсах и путях...
about:blank - это относительный путь или абсолютный?
file:\manuals\readme.txt - это относительный путь или абсолютный?

Критерий абсолютности пути таков:

Вызываем функцию преобразования имени в абсолютное имя.
Меняем текущее устройство и повторяем процедуру.
При совпадении результатов путь - абсолютный, иначе относительный.

Я думаю, что все гораздо проще:
if (copy(path,1,2)='\\') or (copy(path,2,2)=':\')
вот так действительно только абсолютные,
если считать, что абсолютный - точное указание пути, без учета текущего Dir'a.
Тут только полный сетевой путь или полный путь на драйве. Все осальное суета.
а всякие about:blank - это не абсолютные пути, а синонимы.

Это сообщение отредактировал(а) Snowy - 18.1.2005, 12:19