| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите кто знает! Проблема с SaveDialog! [D7, WinXP]

Roman_Kesh ©   (2007-08-14 01:05:00) 

Надумал замутить небольшую программу для работы с текстом и возник такой вопрос. Как силами компонента SaveDialog реализовать два метода сохранения: "Сохранить" и "Сохранить как"? То есть мне нужно что бы при сохранении нового файла работал бы метод "Сохранить как", чтобы было меню и все такое, а при повторном сохранении чтобы работал метод "Сохранить" безо всяких там меню (как например в MS Word).

---

Юрий Зотов   (2007-08-14 14:31:00) [1]

> DrPass ©   (14.08.07 10:15) [5]

Ну все же высшее образование... неудобно ремнем как-то...
:о)

---

DrPass   (2007-08-14 10:15:00) [2]

> Я ждал помощи ну или хотя бы подсказки, а язвления я мог
> послушать и в другом месте!!!!!!!!

Посказку я тебе дал - намекнул, что такиезадачи надо решать самому. А язвления здесь вполне к месту. Т.к. если ленишься думать - зачем вообще садиться писать программы?
> Юрий Зотов ©   (14.08.07 07:15) [4]


Балуете вы их... А надо бы ремнем :)

---

Юрий Зотов   (2007-08-14 07:15:00) [3]

> 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;


---

Германн   (2007-08-14 01:55:00) [4]

> Roman_Kesh ©   (14.08.07 01:48) [2]
>
> Спасибо за столь содержательный ответ... Я ждал помощи ну
> или хотя бы подсказки,

Не. Ты ждал "шпаргалки"! Ты её не получил. Что дальше?

---

Roman_Kesh   (2007-08-14 01:48:00) [5]

Спасибо за столь содержательный ответ... Я ждал помощи ну или хотя бы подсказки, а язвления я мог послушать и в другом месте!!!!!!!!

---

DrPass   (2007-08-14 01:17:00) [6]

А причем тут "силы компонента SaveDialog"? Он файлы не сохраняет, это просто окошко для выбора имени файла. Когда надо показывать это окошко, а когда не надо - реализуй силами своих мозгов.

---

Наверх