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

SaveDialog   Найти похожие ветки 

← →
sergio ©   (2010-08-27 13:58) [0]

Использую SaveDialog с несколькими типами файлов, например:
SaveDialog1.Filter := "Text files (*.txt)|*.TXT|Excel files (*.xls)|*.XLS";
Вопрос такой: как сделать, чтобы при смене типа файла выполнялись разные действия при нажатии кнопки Сохранить?
Использую: procedure TForm1.SaveDialog1TypeChange(Sender: TObject), событие фиксируется, но как делать проверку выбранного типа файлов?

---

← →
Dennis I. Komarov ©   (2010-08-27 14:04) [1]

ExtractFileExt ?

---

← →
sergio ©   (2010-08-27 14:06) [2]

Если можно, чуть поподробнее.

---

← →
Dennis I. Komarov ©   (2010-08-27 14:22) [3]

Вот и я хотел бы знать, что конкретно не получается?

---

← →
sergio ©   (2010-08-27 14:35) [4]

Не получается следующее.
Есть Memo с текстом. Открываю диалог для записи текста Memo в файл, но сохранять нужно в разных форматах (txt, xls, htm...) выбираю в окне диалога тип файла, а дальше при нажатии кнопки сохранить мне нужно выходить на разные процедуры в зависимости от выбранного типа файла.

---

← →
{RASkov} ©   (2010-08-27 14:35) [5]

см. SaveDialog1.FilterIndex

---

← →
Dennis I. Komarov ©   (2010-08-27 14:48) [6]

case of + [5]

---

← →
Anatoly Podgoretsky ©   (2010-08-27 15:04) [7]

В SaveDialog никаких действий не производится, его задача только имя вернуть.

---

← →
Юрий Зотов ©   (2010-08-28 17:17) [8]

> sergio ©   (27.08.10 14:35) [4]


var
 Ext: string;
if SaveDialog. Execute then
begin
 Ext := AnsiUpperCase(ExtractFileExt(SaveDialog.FileName));
 if Ext = "TXT" then
   Proc1(...)
 else
   if Ext = "XLS" then
     Proc2(...)
   else
     if Ext = "HTM" then
       Proc3(...)
     else
       ...
end;


---

← →
Dennis I. Komarov ©   (2010-08-31 11:44) [9]

> В SaveDialog никаких действий не производится, его задача
> только имя вернуть.

Ничего себе заявочки... Да там даже целую папку можно создать :) и еще много чего :))))

---

← →
Anatoly Podgoretsky ©   (2010-08-31 11:59) [10]

> Dennis I. Komarov  (31.08.2010 11:44:09)  [9]

Диалог Save вот про Save и речь, вот Save и не производится, а создание
папки и взлом системы это побочный эффект.

---

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

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



Память: 0.47 MB
Время: 0.013 c