Сохранение

[Патрон]

Как сделать сохранение документа по закрытию программы? Т.е. по типу стандартного блокнота WINDOWS.

[pu4koff]

обрабатывать у формы OnCloseQuery, где выдавать запрос сохранять или нет. если пользователь жмет отмена, типа передумал выходить, то просто CanClose := false;

[_Dmitry]

//Введите глобальную переменную
var
  Change: boolean = false;
//если текст в редакторе изменялся, то
Change:=true;
//анализируйте эту переменную при закрытии программы
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  code: integer;
begin
  if Change then
    begin
      code:=Application.MessageBox('Текст в файле был изменен'#13#10#13#10+
        'Сохранить изменения?','Блокнот',mb_YesNoCancel+mb_IconExclamation);
      case code of
      idYes: //сохраняем файл
        if SaveDialog1.Execute then
          Memo1.Lines.SaveToFile(SaveDialog1.FileName);
      idCancel: Action:=caNone; //не сохраняем и не закрываем программу
      end;
    end;
end;

[Патрон]

Сообщение от _Dmitry

//Введите глобальную переменную
var
  Change: boolean = false;
//если текст в редакторе изменялся, то
Change:=true;
//анализируйте эту переменную при закрытии программы
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var
  code: integer;
begin
  if Change then
    begin
      code:=Application.MessageBox('Текст в файле был изменен'#13#10#13#10+
        'Сохранить изменения?','Блокнот',mb_YesNoCancel+mb_IconExclamation);
      case code of
      idYes: //сохраняем файл
        if SaveDialog1.Execute then
          Memo1.Lines.SaveToFile(SaveDialog1.FileName);
      idCancel: Action:=caNone; //не сохраняем и не закрываем программу
      end;
    end;
end;

с процедурой закрытия программы я разобрался, а вот с:
//Введите глобальную переменную
var
Change: boolean = false;
//если текст в редакторе изменялся, то
Change:=true;
//анализируйте эту переменную при закрытии программы


я не могупонять куда это прописать?

[Makarov]

Как я понял глобальная переменная отвечает за изменение текста! То есть, при каком-либо изменении текста в Memo это переменная принимает значение true! Но при создании формы это переменная должна иметь значение false!

[Патрон]

нее, я про то что куда эти параметры прописать? вот это я не понимаю. Я еще только учусь программированию так что не судите строго.

[mihali4]

Вроде понял вопрос.
так называемая "глобальная" переменная - это совсем на страшно. Помните, в модуле есть описание типа:

var
Form2: TForm1;

Ну, прямо перед implementation - это некая разделительная черта между тем, что вам создано автоматом, и тем, что вы сами вносите...
Так вот, все переменные, которые вы там объявите - они будут "глобальными", то есть их любая процедура может изменить. И воспринять как некую "внешнюю" переменную.
Надеюсь, понятно ? (Аж сам засомневался )

[B_N]

Если речь идёт о произвольном документе, то самое логичное место для этой переменной (в рамках ООП) - класс окна (формы), содержащего этот документ, благо в Delphi этот класс всегда "перед глазами", или даже класс самого документа, если он объявлен явно. Если речь идет о наследнике стандартного Edit-контрола (как TEdit или TMemo, скажем), то он должен поддерживать стандартный флажок, показывающий наличие изменений. Его можно прочитать через сообщение EM_GETMODIFY (и установить через EM_SETMODIFY), осталось только, чтобы кто-нибудь уточнил, какое ему соответствует свойство Delphi.

[Патрон]

неа говорит ошибка в Change. может кто попробует все это сделать???

[mihali4]

Если речь идет о наследнике стандартного Edit-контрола (как TEdit или TMemo, скажем)

Всегда очень уважительно отношусь к вашим высказываниям (чувствуется глубокое знание предмета). Но в данном случае, возможно, либо я вас не понял, либо (что этому и поспособствовало) вы слишком сильно завуалировали тему...
При чем тут "TEdit или TMemo, скажем"? Решительно - не понимаю ход ваших мыслей... Увы...