V. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ПАМЯТЬЮ

1. Функции и процедуры для работы с памятью и указателями

Функция CompareMem (
P1, P2: Pointer;
Length: Integer ): Boolean;

Модуль: SysUtils

Описание
Функция выполняет бинарное сравнение двух участков памяти размером Length байт. Функция возвращает True, если область памяти, на которую указывает P1, идентична области P2, иначе возвращается False.

Пример
var

mas1, mas2: array[0..99] of Integer;
P1,P2: Pointer;
Len: Integer;

begin

P1:=Addr(mas1);
P2:=Addr(mas2);
Len:= SizeOf(mas1);
If CompareMem(P1,P2,Len) then

MessageDlg ('Значения элементов 1-го массива идентичны значениям 2-го массива', mtInformation, [mbOk], 0)

else

MessageDlg ('Значения элементов 1-го массива не идентичны значениям элементов 2-го массива', mtInformation, [mbOk], 0);

end;

[Вернуться к содержанию]