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

← →
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

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

> pkm (19.10.06 13:57) [11]

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

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

Согласен!!!

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