Форум: "Основная";
Текущий архив: 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.046 c