код для текстового редактора

[Михаил Юрьевич]

Подскажите код для текстового редактора что-бы
можно было вернуться на шаг назад,как в WordPad
(то есть что то написал,удалил,а потом вернул нажав
на кнопку "вернуть)

[puporev]

Можно действовать так:
Создать переменную bufer:string;
Процедура Удаление
1.buf:='';
2.копировать в буфер, то что удаляете
3.удаление
Процедура Отмена
insert(buf,s,i);
Примерно такая последовательность. Можно создать например три буфера, чтобы отменять три последних удаления. А код надо писать в контексте вашей программы.

[Air]

Позвольте вопрос по теме.

В Delphi 7 (по крайней мере у меня), можно возвращаться назад до последнего сохранения, - сколько там буферов?
- Может они просто динамически создаются?

[andrey4623]

я сделал у себя в программе отмену до 3-х действий. Действительно, во всех серьезных программах наподобие Word, Photoshop, Delphi отмена идет до самого начала. Как это можно реализовать?

[Карась]

Используя динамический массив.

[Air]

Как вариант.

array[0..999999] of string;

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

[B_N]

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

Как вариант.

array[0..999999] of string;

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

Не нужно делать никаких массивов, тем более, четырехмегабайтных, просто так. Изменения накапливаются последовательно, поэтому идеальные структуры для их хранения - списки или стэки. К тому же, желательно оптимизировать добавление данных, чтобы не записывать каждый раз весь документ

[andrey4623]

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

Как вариант.

array[0..999999] of string;

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

а если я делаю отмену-повтор структуры, в которой по 30 элементов?

[Air]

Я в какой-то проге встречал такое, что содержимое сохраняется полнотью, т.е. в файле хранится полностью текст и когда отменяешь действие - просто считывается нужный кусочек файла и прописывается в текстовое поле, то же самое и с повтором, а когда сохраняешь документ, тот файл затирается.

[makarov.y]

А не легче ли так : Memo1(или что там у тебя).Undo; Эффект такой же что
и у клавиш Ctrl + Z.