Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.013 c
2-1196273108
Kaliostro
2007-11-28 21:05
2007.12.23
Доступ к Excel через ADO


15-1195670824
sdaf
2007-11-21 21:47
2007.12.23
библиотека rxlib


15-1195998290
Kostafey
2007-11-25 16:44
2007.12.23
Как сравнить директории


3-1187492065
ChaoX
2007-08-19 06:54
2007.12.23
TBlobField и приведение типов


2-1195914602
savyhinst
2007-11-24 17:30
2007.12.23
GIF