![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#4
|
|||
|
|||
![]() Ну так и сравнивай!!!
Код:
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; Проверка на равенство размерностей массивов опущена. |