Простой текстовый редактор

@Sepheroth · Регистрация: 17.10.2013

Author24 — интернет-сервис помощи студентам

Уважаемые форумчане, помогите пожалуйста поправить программу. Нашел 2 ошибочки, не знаю как их поправить.
1) Когда нажимаю сохранение (перед этим не сохраняя как...)
2) Нужно сообщение при закрытии, с предупреждением, сохранен ли файл.

Очень нужна помощь. Заранее благодарен.

@MrOnlineCoder · 17.06.2014, 22:13

Sepheroth, в чем ошибки? Сообщение при закрытии вы уже сделали

@Sepheroth · 17.06.2014, 22:15 **[ТС]**

в этом и ошибка, сообщение не вылазит при закрытии

Добавлено через 1 минуту
MrOnlineCoder, не могли бы вы, посмотреть как те ошибки можно исправить?

@MrOnlineCoder · 17.06.2014, 22:27

Sepheroth, вот решение проблемы с сохранить (если я понял правильно):

Код для сохранить

Delphi

procedure TForm1.N6Click(Sender: TObject);
begin
if (exsisting = true) then begin
  Memo1.Lines.SaveToFile(EditFile);//запись на прямую в файл
  if Memo1.Modified then Memo1.Modified:=false;
  end else begin
         if SaveDialog1.Execute then  //запись в файл + диалоговое оконо
       begin
       EditFile:=SaveDialog1.FileName;
       Memo1.Lines.SaveToFile(EditFile);
       Form1.Caption:='My Word - '+ExtractFileName(EditFile);
       if Memo1.Modified then Memo1.Modified:=false;
       exsisting:=true;
      end;
  end;
end;

Добавлено через 4 минуты
Возможное решение для проблемы с сообщением при закрытии:

Решение

Delphi

if (Memo1.Modified) or (OpenDialog1.FileName<>'') or(SaveDialog1.FileName <> '')then
        begin
        if MessageDlg('File modified. Continue?',mtConfirmation,[mbYes, mbNo],0) <> 6 then Action := caNone;
end

Но оно только отменяет закрытие формы.

@Sepheroth · 18.06.2014, 13:37 **[ТС]**

По первой ошибке: почти хорошо, но теперь возник нюанс, при любом нажатии на сохранить(не сохранить как...), выходит меню сохранения, а должно без него, после первого сохранения
По второй ошибке: у меня ни каких изменений, либо я что-то делаю не так(, Delphi только начал изучать

Добавлено через 14 часов 59 минут
MrOnlineCoder, спасибо вам большое. Ваши решения помогли, сначало неправильно делал, но разобрался.

@MrOnlineCoder Всегда онлайн 1084 / 788 / 295 Регистрация: 07.04.2013 Сообщений: 2,703
	17.06.2014, 22:13	2
	Sepheroth, в чем ошибки? Сообщение при закрытии вы уже сделали 0

@Sepheroth 0 / 0 / 2 Регистрация: 17.10.2013 Сообщений: 66
	17.06.2014, 22:15 [ТС]	3
	в этом и ошибка, сообщение не вылазит при закрытии Добавлено через 1 минуту MrOnlineCoder, не могли бы вы, посмотреть как те ошибки можно исправить? 0

@Sepheroth 0 / 0 / 2 Регистрация: 17.10.2013 Сообщений: 66
	18.06.2014, 13:37 [ТС]	5
	По первой ошибке: почти хорошо, но теперь возник нюанс, при любом нажатии на сохранить(не сохранить как...), выходит меню сохранения, а должно без него, после первого сохранения По второй ошибке: у меня ни каких изменений, либо я что-то делаю не так(, Delphi только начал изучать Добавлено через 14 часов 59 минут MrOnlineCoder, спасибо вам большое. Ваши решения помогли, сначало неправильно делал, но разобрался. 0