Главная страница
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.01 c
15-1281587871
IGray
2010-08-12 08:37
2010.11.21
Ищу исходники функции IntToStr на паскале


2-1282601157
XLMD
2010-08-24 02:05
2010.11.21
чтение файлов или бесовщина


2-1282712795
alex.rus
2010-08-25 09:06
2010.11.21
Service(служба) и Windows vista


15-1280988195
12
2010-08-05 10:03
2010.11.21
Шахматная программа


3-1247807671
belmol
2009-07-17 09:14
2010.11.21
множество в условии