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

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

DirPath Подняться на уровень вверх [D5, D6, D7]

Страницы:   < 1 2 >

Vx ©   (2006-09-17 02:32:00) 

Есть DirPath

DirPath := ExtractFilePath( ParamStr(0) );

Как в DirPath Подняться на уровень вверх?
или надо разбирать строчку по '\' и последний сегмент удалять?

Подскажите пожалуйста может есть стандартная функция.

---

Anatoly Podgoretsky   (2006-09-17 16:01:00) [21]

Неужели ExtractFileDir не работает?

---

Vx   (2006-09-17 15:24:00) [22]

Ты сам -то их пробовал?

s := ExcludeTrailingPathDelimiter(s);
Не заработало.

Использую свою

FUNCTION UpDir(UD:String):String;
var
 LastDelimiter,i: word;
BEGIN
 LastDelimiter := 0;
 Result :='';
 if length(UD)<=3 then exit;
 for i:=3 to Length(UD)-1 do begin
   if UD[i]='\' then LastDelimiter :=i;
 end;
 if i>3 then Result:=copy(UD,1,LastDelimiter-1);
END;

---

Zeqfreed   (2006-09-17 06:09:00) [23]

ExtractFile[Path|Dir](ExcludeTrailingPathDelimiter(s));

---

Страницы:   < 1 2 >

Наверх