Текущий архив: 2007.12.23;
Скачать: CL | DM;

Вниз

Папка верхнего уровня   Найти похожие ветки 

← →
webpauk ©   (2007-11-30 15:49) [0]

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

---

← →
Sergey13 ©   (2007-11-30 15:52) [1]

cd ..

---

← →
webpauk ©   (2007-11-30 16:01) [2]

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


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

---

← →
Рамиль ©   (2007-11-30 16:04) [3]

"C:\Program Files\Common Files\.."

---

← →
{RASkov} ©   (2007-11-30 16:06) [4]

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

Copy, LastDelimeter
?

---

← →
homm ©   (2007-11-30 16:10) [5]

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

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

---

← →
Reindeer Moss Eater ©   (2007-11-30 16:10) [6]

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

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

---

← →
{RASkov} ©   (2007-11-30 16:20) [7]

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));

)

---

← →
webpauk ©   (2007-11-30 16:53) [8]

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

спсб

---

Страницы: 1 вся ветка

Текущий архив: 2007.12.23;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.019 c