Показать сообщение отдельно
  #4  
Старый 12.01.2009, 20:06
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну так и сравнивай!!!

Код:
function IsArraysEqual(A, B : Array Of Integer) : Boolean;
var
  I, J : Integer;
begin
  Result := True;
  For I := Low(A) To High(A) Do
    For J := Low(A[i]) To High(A[i]) Do
      Begin
        Result := A[I,J] = B[I,J];
        If Not Result Then Break;
      End; 
end;

Проверка на равенство размерностей массивов опущена.
Ответить с цитированием