Доступ к отображаемой памяти 141

Store Procedure Store (var F: File); Virtual;

Перекрывается: Иногда

Сохраняет текущее состояние объекта в файле F: вначале вызывает унаследованный метод TEMSArea.Store, затем записывает в файл заголовок RegHeadTEMSVector и поля ItemS, Minind, Maxind. Перед обращением к методу файловую переменную F необходимо связать с уже существующим нетипизированным файлом, а сам файл должен быть открыт для чтения блоками длиной в 1 байт.

Getltem Procedure Getltem (var Dest; Index: Longint) ;

Перекрывается: Редко

Помещает в переменную Dest элемент с индексом Index: вначале определяет положение ItemS'(Index—Minind) элемента относительно начала EMS— памяти, затем вызывает TEMSArea.ReadEMS для чтения из памяти ItemS байт.

Setltem Procedure Setltem (var Source; Index: Longint);

Перекрывается: Редко

Читает из переменной Source ItemS байт и помещает их в элемент с индексом Index: вначале определяет положение ItemS'(Index—Minind) элемента относительно начала EMS— памяти, затем вызывает TEMSArea. WriteEMS для записи в память ItemS байт.

Byteltem Function Byteltem (Index: Longint): Byte;

Возвращает значение элемента с индексом Index в типе Byte: вначале проверяет поле ItemS, которое должно иметь значение SizeOf(Byte), затем вызывает Getltem и преобразует полученное значение элемента Index к типу Byte.

Doubleltem Function DoubleItem (Index: Longint) : Double;

Возвращает значение элемента с индексом Index в типе Double:

вначале проверяет поле ItemS, которое должно иметь значение SizeOf(Double), затем вызывает Getltem и преобразует полученное значение элемента Index к типу Double.

Extendedltem Function ExtendedItem (Index: Longint) : Extended;

Возвращает значение элемента с индексом Index в типе Extended:

вначале проверяет поле ItemS, которое должно иметь значение SizeOf(Extended), затем вызывает Getltem и преобразует полученное значение элемента Index к типу Extended.

Integerltem Function IntegerItem (Index: Longint) : Integer;

Возвращает значение элемента с индексом Index в типе Integer:

вначале проверяет поле ItemS, которое должно иметь значение SizeOf(Integer), затем вызывает Getltem и преобразует полученное значение элемента Index к типу Integer.

Longlntltem Function LongIntItem (Index: Longint): Longint;

Возвращает значение элемента с индексом Index в типе Longint:

вначале проверяет поле ItemS, которое должно иметь значение SizeOf(LongInt), затем вызывает Getltem и преобразует полученное значение элемента Index к типу Longint.

Realltem Function Realltem (Index: Longint) : Real;