Сохранение экрана, Я делаю так.... Опции

[ZeroLink]

Долго я мучился сохранять содержимое экрана, а потом его востановливать.
И вот получилось:

Это типа VAR

Код

var
 SaveScr: array[1..4000] of Byte; {сохранение экрана}
 Screen: array[1..25,1..80,(CChar, Attr)] of Byte absolute $B800:$0000;{экран}

Ну а вот сохранение:

Код

Move(Screen, SaveScr, SizeOf(SaveScr));

А вот и востановление:

Код

Move(SaveScr, Screen, SizeOf(SaveScr));

Если у Вас есть другие варианты, то выкладывайте :yes:

[APAL]

В простоте кода. Исключительно в этом.

А вот и нет. ;)
Попробуй реализовать менюшку со своим методом...


P.S.: В теме о словах в строках я выложил архив STATIC.RAR - в нем есть модуль MYSERVIS - там должен быть описан мой метод - процедуры PushW и PopW (если не ошибаюсь) - возьми их для сравнения.