Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
Вниз
Подскажите пожалуйста Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.062 c
