Ctrl+Z реализация

[delphin100]

Подскажите как реализовать Ctrl+Z в Tmemo.
Надо чтобы отмена была максимально приближена к MS Office (Короче чтобы оно работало хоть до самого начала печати а не как в MS Paint Там 3 раза всего).

[evg_m]

вести в программе стек изменений (что, куда добавили; что, откуда удалили) и делать откаты по данному стеку

[delphin100]

Такой вариант я конечно понимаю, а по проще нет варианта.

[Манжосов Денис :)]

Куда ещё проще, создать массив и хранить все изменения в массиве.

[delphin100]

Ла я понимаю масив но тогда представь сколько будет занимать этот масив.

[BOBAH13]

Пишем как говорилось стек В стеке держим структуру допустим:

packed record Flag: Word; Start, Len: Integer; Data: PCHAR

разумеется не идеал но для начала думаю можно. Идея такова. Объявить для Flag: WORD константы т.е. например чтобы знать какое действие было произведено удаление, копирование, вставка. Потом соответственно указываем с какого места было произведено Start отчет с нуля и какой длинны Len: Integer буфер Data: PCHAR. Разумеется если Len= 0 то Data = NIL. Вот и все.

[delphin100]

Спс за совет