Главная страница
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
2-1282770205
Arhi2med
2010-08-26 01:03
2010.11.21
как последовательно читать текст если элементы разделены ;


2-1283178522
ZV
2010-08-30 18:28
2010.11.21
Преоброзование данных


15-1281126597
Юрий
2010-08-07 00:29
2010.11.21
С днем рождения ! 7 августа 2010 суббота


6-1228647321
cerber
2008-12-07 13:55
2010.11.21
подмена html


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