Extension in Savedialog

← →
Windeus © (2002-05-03 08:49) [0]

Как при сохранении документа узнать ввел ли пользователь расширение сохраняемого документа, чтобы в случае если нет (только выбрал в Filter тип данных) добавлять savedialog.FileName+".txt", а если расширении указано, то не добавлять его программно чтобы не получилось что-то вроде file.txt.txt. Я осуществил подобное, но получилось очень емко для моей программы. Предложите пожалуйста варинты решения этой проблемы.

← →
Anatoly Podgoretsky © (2002-05-03 09:01) [1]

Так это, ExctractFileExt позволяет узнать расширение файла и ты имеешь возможность сравнить его со своим фильтром. Или не то?

← →
Windeus © (2002-05-03 09:34) [2]

Не то вроде.. savedialog.FileName - необходимо проверить ввел ли юзер имя файла с расширением или без него. И соответсвенно добавлять или не добавлять его программно.

← →
Song © (2002-05-03 10:13) [3]

With SaveDialog1 Do IF Pos(ExtractFileExt(FileName),FileName)=0 then FileName:=FileName+"."+DefaultExt;

пасибо! коротко и ясно.. все бы так.

Extension in Savedialog Найти похожие ветки