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

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;

---

← →
Fenix ©   (2006-03-03 18:44) [4]

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

---

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

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



Память: 0.45 MB
Время: -0.974 c