Форум: "Начинающим";
Текущий архив: 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