Возможно ли (и как если возможно?) получить разницу (diff) текстового поля по onChange?

Question

[Interface]

Есть проблема: хочется получить в собитии onChange какого-нибудь текстового компонента внесенную пользовотелем разницу с предыдущей версией.

Например:
Поле Memo1 содержит:
"Hello world!",
дальше пользователь вносит изменения и становится:
"Hello my world!"

т.е. добавлено слово "my":

"Hello my world!"

Как эффективно узнать, что именно было изменено? Можно сравнивать текст до и после и находить разницу известными алгоритмами, но этот способ в данном случае мне не подходит, потому что видится неэффективным.

Хотелось бы как-то отслеживать операцию которую делает пользователь и исходя из нее получать diff.
Например: навесить обработчик на onKeyUp (при вводе символов или стирании посредствам delete или backspace).
Однако, помимо ввода с клавиатуры есть также копирование, drag-n-drop и прочие, что делает такой способ довольно громоздким.

Может есть способ навесить обработчик на скажем что-то такое:

procedure OnTextAdd(OpType: Boolean; Str: String; Pos: Integer); 
//.. где OpType - добавление или удаление текста, Str - сам текст
// Pos - позиция в исходной строке, где произведено изменение

Возможно есть какие-то готовые компоненты реалиующие это?

Comments

[iloer]

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

P.S. интересно как вы будете поступать в случае последовательности действий "Hello my world!" -> "Hello my world!" -> "Hello world!" без фиксации? нужно сохранить оба действия? или не сохранять вообще?

[Interface]

iloer: фиксация не планируется. Мне нужен первый вариант.
"тогда в первом случае вполне достаточно события onChange, а во втором ничего не мешает вам сравнить исходное состояние с результирующим" мне не понятно как вы предлагаете обойтись классическим OnChange. TMemo имеет такую структуру обработчика этого события: procedure TForm1.Memo1Change(Sender: TObject); - т.е. не содержит информации о внесенных изменениях. Как их в таком случае получить?
Сравнить весь текст с его измененной версиией мне мешает потенциально большое время выполнения этой операции. Если пользователь ввел 1 символ, а сравниваться будут 2 строки по миллиону символов - это может быть весьма заметно, особенно, если это часто повторяющееся операция.

Answer 1

[zed]

Посмотрите в сорцы компонента SynEdit (замена стандартного Memo). Компонент весьма продвинутый и там есть нужная вам логика: при любом изменении текста запоминается дифф для Undo операции (TSynEditUndoList).

Пример, как оно там используется:

// add to undo list
fUndoList.AddChange(Item.ChangeReason, Item.ChangeStartPos,
  Item.ChangeEndPos, Item.ChangeStr, Item.ChangeSelMode);

И я думаю, что в любом другом компоненте, с вменяемым Undo, должно быть что-то похожее.

Comments

[Interface]

zedxxx есть небольшой оффтопик. Возможно вы ориентируетесь во внутренностях этого компонента.. А как наиболее правильно вручную красить код в SynEdit? Очень желательно с использованием бэкграунда (еще лучше если будет возможность добавлять всякие стили, подчеркивания и т.д.), т.е. например как то так: SynEdit1.highlight(from, to, color, backGroundColor); Или лучше не использовать этот компонент для этих целей?

[zed]

Interface: Я не очень хорошо знаком с SynEdit, поэтому ничего дельного сказать не могу.