AkinaПанургAkina, а если вернулись немного назад и начали вводить новые данные? Проще скинуть чем вычислять чего там надо удалить.
Чего там сложного-то?
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Property NewAction(ActionData)
posession = posession + 1
ReDim Preserve Buffer(posession)
Buffer(posession) = ActionData
End Property
Property UndoAction()
PerformUndo Buffer(posession)
posession = posession - 1
End Property
Property RedoAction()
posession = posession + 1
PerformRedo Buffer(posession)
End Property
При posession = UBound(Buffer) недоступен Redo, при posession = 0 недоступен Undo.
Интересно, а что ТС об этом думает (классовой борьбе )
