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

[Волк]

Файл загружается в memo нужно сравнить начальный текст с конечным.Как это сделать заранее спасибо!

[UnChanter]

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

[Волк]

ага. только давай не будешь на меня говорить вам?

[UnChanter]

ОК!,
попробуй написать так:

procedure TForm2.Button1Click(Sender: TObject);
begin
  if memo1.Modified = true then
    begin
      ShowMessage('текст поменялся');
      Memo1.Modified:=false;
    end else
    begin
      ShowMessage('тест не менялся');
    end;
end;

procedure TForm2.Memo1Change(Sender: TObject);
begin
 memo1.Modified:=true;
end;

[Волк]

Работает но не совсем так как надо ведь он считает изменением любое действие!

[UnChanter]

да, а что он должен ещё считать? Насколько я понимаю, ты пишешь блокнот..., а для блокнота и надо считать изменением любое действие...

[Волк]

я пытаюсь написать блокнот!!

[spamer]

Если пишиш блокнот(или что то наподобие), то используй лучше компонент TRichEdit (вкладка Win32).

[Волк]

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

Если пишиш блокнот(или что то наподобие), то используй лучше компонент TRichEdit (вкладка Win32).

ага переделывать весь код когда осталось прописать совсем чуть-чуть!!!!!

[UnChanter]

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

ага переделывать весь код когда осталось прописать совсем чуть-чуть!!!!!

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


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