Текущий архив: 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.012 c
