Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.11.21;
Скачать: 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 вся ветка

Текущий архив: 2010.11.21;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.009 c
15-1281353446
12
2010-08-09 15:30
2010.11.21
Из-за чего может быть SystemError 1158 ?


2-1283260525
Stenfit
2010-08-31 17:15
2010.11.21
Сохранение списка


11-1224882649
Neep
2008-10-25 01:10
2010.11.21
KOL 2.88 и шрифт, объясните как?


15-1281510965
AlexDn
2010-08-11 11:16
2010.11.21
Движок Вконтакте


3-1248096780
well
2009-07-20 17:33
2010.11.21
Обработка исключений Oracle