Как сравнить содержание одного и тогоже файла?

[spamer]

Зачем переделывать? Просто назовите TRichEdit так как у вас назван TMemo. И все.

P.S. С TRichEdit больше возможностей.

[Волк]

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

А ты и не переписывай! )), удали memo и добавь RichEdit, a назови его Memo.... хотя это не красиво!!!


И ещё!, чтобы сохранить из RichEdit в txt надо PlainText := true, иначе будет сохраняться как *.rtf

мне осталось только чтобы при выходе он сравнивал файлы и если файл был изменен предлагал сохранить его!!!!!!!

[Волк]

Ладно поменял а как теперь там сравнить????

[spamer]

Вобщем скажу так - Memo - он не для текстовых редакторов.

Для кнопки Save

procedure TForm1.SaveClick(Sender: TObject);
begin
RichEdit1.PlainText:=True;
if SaveDialog1.FileName<>'' then
    RichEdit1.Lines.SaveToFile(SaveDialog1.Filename)
  else
    with SaveDialog1 do
      if Execute then
      begin
        RichEdit1.Lines.SaveToFile(FileName);
        Caption :=ExtractfileName(FileName)+' - UltraNotepad++';
        RichEdit1.Modified:=false;
      end;

end;

Для кнопки SaveAss

procedure TForm1.SaveassClick(Sender: TObject);
begin
RichEdit1.PlainText:=True;
With SaveDialog1 do
  if Execute then
    begin
      RichEdit1.Lines.SaveToFile(SaveDialog1.FileName);
      Caption:='UltraNotepad++ '+'- '+ExtractFileName(SaveDialog1.FileName);
    end;
RichEdit1.Modified:=false;
end;

Код для RichEdit. Подогнать под себя не тяжело.

[UnChanter]

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if memo1.Modified =true then
   begin
    showMessage('сначала сохранитесь!!!');
    action:=caNone;
   end;
end;

[Волк]

как проверить изменился ли файл?????????

[spamer]

Ну так ты при открытии файла поставь RichEdit1.Modified:=false; - в конец процедуры для открытия.

А потом вот этот код на событие OnClose

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if RichEdit1.Modified=true then
  begin
    if MessageDlg('Текстовый файл был изменен. Сохранить изменения?',mtInformation,[mbYes, mbNo],0)=mrYes then
      Save.Click;
  end;
end;

P.S. То что я написал, достаточно для реализации вашего сохранения.

[Волк]

че означает эта строчка action:=caNone;

[spamer]

Эта строчка означает ................ что вы поленились почитать Основы программирования в Делфи.

action:=caNone; - Невозможно закрыть форму.

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if memo1.Modified =true then
   begin
    showMessage('сначала сохранитесь!!!');
    action:=caNone;
   end;
end;

Этот код не будет работать красиво - всмысле как в нормальных текстовиках.

[UnChanter]

Сообщение от Волк

че означает эта строчка action:=caNone;

не дать закрыться программе