Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];
Вниз
имя файла без расширения Найти похожие ветки
← →
lehich © (2005-03-14 14:49) [0]собственно каким образом получить???
← →
ssk © (2005-03-14 14:51) [1]ChangeFileExt()
← →
Начинающий2 (2005-03-14 16:18) [2]Вот так точно даст без расширения:
ChangeFileExt(ExtractFileName(Fileopen),"")
← →
Antonn © (2005-03-14 16:30) [3]А вот велосипед еще никто не предлагал:)
ss:="C:\windows\boot.ini";
ss:=extractfilename(ss);
delete(ss,(length(ss)- length(extractfileext(ss))+1), length(extractfileext(ss)));
label1.Caption:= ss;
← →
Начинающий2 (2005-03-14 16:49) [4]Точно велосипед, не проще ли так:
ss:=ChangeFileExt(ExtractFileName("C:\windows\boot.ini"),"");
label1.Caption:= ss;
← →
Antonn © (2005-03-14 16:56) [5]Начинающий2 (14.03.05 16:49) [4]
у меня велосипеднее:) Вот что значит лень искать готовые функции:))
← →
Начинающий2 (2005-03-14 17:02) [6]Antonn © (14.03.05 16:56) [5]
Вообщето переменная здесь и не нужна, я привёл это для твоего варианта.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.03.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.037 c
