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

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

Папка верхнего уровня [D6, XP]

webpauk ©   (2007-11-30 15:49:00) 

Как из строки C:\Program Files\Common Files\папку верхнего уровня получить C:\Program Files\

---

webpauk   (2007-11-30 16:53:00) [1]

> {RASkov} ©   (30.11.07 16:20) [7]

спсб

---

{RASkov}   (2007-11-30 16:20:00) [2]

function GetUpDir(const SPath: String): String;
begin
 if SPath[Length(SPath)]=PathDelim then Result:=Copy(SPath, 1, Length(SPath)-1)
  else Result:=SPath;
 Result:=Copy(Result, 1, LastDelimiter(PathDelim, Result));
end;

const TxtPath = 'C:\Program Files\Common Files\';
begin
ShowMessage(GetUpDir(TXtPath));

)

---

homm   (2007-11-30 16:10:00) [3]

> [0] webpauk ©   (30.11.07 15:49)
> Как из строки C:\Program Files\Common Files\ папку верхнего
> уровня получить C:\Program Files\

Папку верхнего уровня C:\

---

Reindeer Moss Eater   (2007-11-30 16:10:00) [4]

Если нет слэша на конце
ShowMessage(ExtractFileDir('C:\Program Files\Common Files'));

Если есть и если нет слэша
ShowMessage(ExpandFileName('C:\Program Files\Common Files\..'));

---

{RASkov}   (2007-11-30 16:06:00) [5]

> [2] webpauk ©   (30.11.07 16:01)

Copy, LastDelimeter
?

---

Рамиль   (2007-11-30 16:04:00) [6]

'C:\Program Files\Common Files\..'

---

webpauk   (2007-11-30 16:01:00) [7]

> Sergey13 ©   (30.11.07 15:52) [1]


var
S: String;
begin
S:='C:\Program Files\Common Files\';
S(new):=???

---

Sergey13   (2007-11-30 15:52:00) [8]

cd ..

---

Наверх