Savedialog. Проблема с расширениями.

← →
Fenix © (2006-03-03 16:55) [0]

Доброе время суток.
Допустим у меня в фильтре Savedialog"a находиться несколько расширений. При сохранении я вбиваю имя файла (без расширения). И мне надо, что бы данные сохранились в файл с выбранным расширением.
Я читал что надо для этого использовать DefaultExt. Но как туда занести выбранное расширение из фильтра?

← →
x.pro (2006-03-03 17:17) [1]

procedure ...
begin
if ExtractFileExt(SaveDialog1.Filename) = ""
then SaveDialog1.FileName + "<расширение>"
end;

попробуйте так.

← →
Fenix © (2006-03-03 17:33) [2]

да не... так то я определяю когда с расширением, а когда нет. Мне нужно что бы не писать "<расширение>", а расширение задавалась относительно, фильтра выбранного в данный момент. У меня допустим 2 фильтра *.htm *.html.
Мне надо что бы когда был выбран фильтр *.htm у меня автоматически сохранялась с расширением .htm, также с *.html.

← →
АРІ (2006-03-03 18:10) [3]

Решение "в лоб":

procedure TForm1.SaveDialog1TypeChange(Sender: TObject);
var
SL: TStringList;
begin
SL := TStringList.Create;
try
SL.Delimiter := "|";
Sl.DelimitedText := SaveDialog1.Filter;
SaveDialog1.DefaultExt := SL[SaveDialog1.FilterIndex * 2 - 1];
finally
SL.Free;
end;
end;

Огромное спасибо :)
усе заработало.

Savedialog. Проблема с расширениями. Найти похожие ветки