Скачать: CL | DM;

Подскажите пожалуйста   Найти похожие ветки 

← →
pkm   (2006-10-19 13:17) [0]

Всем привет. Я в программе использую save_dialog. В нем есть несколько фильтров. В зависимости от выбранного фильтра, я к имени файла прибавляю расширение. А если пользователь написал сам расширение и плюс я дописал,то получается такая картина: name_file.txt.txt. Как этого избежать? Спасибо за внимание.

---

← →
Palladin ©   (2006-10-19 13:21) [1]

if extractfileext(filename)<>"txt" then filename:=filename+".txt"

---

← →
pkm   (2006-10-19 13:41) [2]

Не получилось. Сохраняет name_file.txt.txt

---

← →
Darvin ©   (2006-10-19 13:44) [3]

TSaveDialog.DefaultExt

---

← →
pkm   (2006-10-19 13:46) [4]

И так не получилось.

---

← →
Плохиш ©   (2006-10-19 13:49) [5]

> if extractfileext(filename)<>".txt" then filename:=filename+".
> txt"

---

← →
Джо ©   (2006-10-19 13:49) [6]

> [4] pkm   (19.10.06 13:46)
> И так не получилось.

Наверное, тогда ты неправильно делаешь.

---

← →
Плохиш ©   (2006-10-19 13:50) [7]

и использовать одну из функций AnsiUpperCase/AnsiLowerCase, но два раза.

---

← →
pkm   (2006-10-19 13:50) [8]

А если я беру весь путь и имя файла.

---

← →
Плохиш ©   (2006-10-19 13:51) [9]

Хотя, в данном случае, AnsiLowerCase - один раз :-)

---

← →
Плохиш ©   (2006-10-19 13:51) [10]

> pkm   (19.10.06 13:50) [8]
> А если я беру весь путь и имя файла.

И чего? А главное, куда берёшь?

---

← →
pkm   (2006-10-19 13:57) [11]

код такой:
if (sd_fil.DefaultExt)<>"txt" then fname:=sd_fil.filename+".txt";
или
if extractfileext(sd_fil.filename)<>"txt" then fname:=sd_fil.filename+".txt"

результат один:
name_file.txt.txt

---

← →
Darvin ©   (2006-10-19 13:59) [12]

Просто установи DefaultExt, а всякие коррекции расширения - фтопку

---

← →
Плохиш ©   (2006-10-19 14:05) [13]

> pkm   (19.10.06 13:57) [11]

Ты думаешь, точка в [5] просто так подчёркнута? Когда отладчиком пользоваться начнёшь учиться?

---

← →
pkm   (2006-10-19 14:19) [14]

Согласен!!!

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c