Форум: "Начинающим";
Текущий архив: 2007.09.09;
Скачать: [xml.tar.bz2];
Вниз
Помогите кто знает! Проблема с SaveDialog! Найти похожие ветки
← →
Roman_Kesh © (2007-08-14 01:05) [0]Надумал замутить небольшую программу для работы с текстом и возник такой вопрос. Как силами компонента SaveDialog реализовать два метода сохранения: "Сохранить" и "Сохранить как"? То есть мне нужно что бы при сохранении нового файла работал бы метод "Сохранить как", чтобы было меню и все такое, а при повторном сохранении чтобы работал метод "Сохранить" безо всяких там меню (как например в MS Word).
← →
DrPass © (2007-08-14 01:17) [1]А причем тут "силы компонента SaveDialog"? Он файлы не сохраняет, это просто окошко для выбора имени файла. Когда надо показывать это окошко, а когда не надо - реализуй силами своих мозгов.
← →
Roman_Kesh © (2007-08-14 01:48) [2]Спасибо за столь содержательный ответ... Я ждал помощи ну или хотя бы подсказки, а язвления я мог послушать и в другом месте!!!!!!!!
← →
Германн © (2007-08-14 01:55) [3]
> Roman_Kesh © (14.08.07 01:48) [2]
>
> Спасибо за столь содержательный ответ... Я ждал помощи ну
> или хотя бы подсказки,
Не. Ты ждал "шпаргалки"! Ты её не получил. Что дальше?
← →
Юрий Зотов © (2007-08-14 07:15) [4]> Roman_Kesh © (14.08.07 01:05)
Вообще-то, такие вещи даже в книжках не описываются - потому что надо всего лишь немного подумать...
procedure InternalSave;
begin
... // Запись данных в файл c именем FileName.
... // FileName - строковая переменная, хранящая имя файла.
... // Первоначально эта переменная содержит пустую строку.
end;
procedure SaveClick(Sender: TObject);
begin
if FileName = "" then
SaveAsClick(Sender)
else
InternalSave
end;
procedure SaveAsClick(Sender: TObject);
begin
if OpenDialog.Execute then
begin
FileName := OpenDialog.FileName;
InternalSave
end
end;
← →
DrPass © (2007-08-14 10:15) [5]
> Я ждал помощи ну или хотя бы подсказки, а язвления я мог
> послушать и в другом месте!!!!!!!!
Посказку я тебе дал - намекнул, что такие задачи надо решать самому. А язвления здесь вполне к месту. Т.к. если ленишься думать - зачем вообще садиться писать программы?
> Юрий Зотов © (14.08.07 07:15) [4]
Балуете вы их... А надо бы ремнем :)
← →
Юрий Зотов © (2007-08-14 14:31) [6]> DrPass © (14.08.07 10:15) [5]
Ну все же высшее образование... неудобно ремнем как-то...
:о)
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2007.09.09;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.044 c
