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 никаких действий не производится, его задача только имя вернуть.

> 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;

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

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

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

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

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