Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.11.21;
Скачать: [xml.tar.bz2];

Вниз

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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.031 c
2-1282672625
PinDOS
2010-08-24 21:57
2010.11.21
Целочисленный тип для операций с указателями


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


2-1283107970
nellyk
2010-08-29 22:52
2010.11.21
FindNext-лишние файлы


15-1281428898
stas
2010-08-10 12:28
2010.11.21
TWebBrowser заполнить поле типа file


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





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский