Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

SaveDialog [D6, XP]

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

Anatoly Podgoretsky (2010-08-31 11:59:00) [1]
> Dennis I. Komarov (31.08.2010 11:44:09) [9]

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

Dennis I. Komarov (2010-08-31 11:44:00) [2]

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

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

Юрий Зотов (2010-08-28 17:17:00) [3]

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

Anatoly Podgoretsky (2010-08-27 15:04:00) [4]
В SaveDialog никаких действий не производится, его задача только имя вернуть.

Dennis I. Komarov (2010-08-27 14:48:00) [5]
case of + [5]

sergio (2010-08-27 14:35:00) [6]
Не получается следующее.
Есть Memo с текстом. Открываю диалог для записи текста Memo в файл, но сохранять нужно в разных форматах (txt, xls, htm...) выбираю в окне диалога тип файла, а дальше при нажатии кнопки сохранить мне нужно выходить на разные процедуры в зависимости от выбранного типа файла.

{RASkov} (2010-08-27 14:35:00) [7]
см. SaveDialog1.FilterIndex

Dennis I. Komarov (2010-08-27 14:22:00) [8]
Вот и я хотел бы знать, что конкретно не получается?

sergio (2010-08-27 14:06:00) [9]
Если можно, чуть поподробнее.

Dennis I. Komarov (2010-08-27 14:04:00) [10]
ExtractFileExt ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »