Функция 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);
