任意多次undo如何实现？

Question

TList保存操作；如果是纯文本，可以这样：THistory=record
  Str:string;
  Pos:integer;
  AddorRemove:boolean;
end;

Answer 1

这样做的话好像代价很大，而且history应该在何时生成呢？大家帮忙！

Answer 2

hittory再memoonchange的时候生成。谁能想到代价更小的办法，别忘了通知我一声。
谢了！

Answer 3

写当然是可以写，可是像word那样是输入一段文本算一个动作（可撤销）的，那么onchange就有问题了，还有代价的问题，有更好的办法吗？

Answer 4

干嘛不用控件呢，RXRichedit不是有现成的功能吗

Answer 5

我不是说吧所有的东西都纪录，而是把变化的东西纪录，
并且记住位置，是增加了还是减少了活着是改变了
改一下：
THistory=record
  Str:string;
  Pos:integer;
//  AddorRemove:boolean; 不要了
 State:byte;//标志增加了还是减少了活着是改变了
end;