Корректное сравнение массивов на условии.

[Alex Cones]

Вопрос в том, как можно корректнее (или быстрее, в зависимости от ответа) сравнить массив на заполенность конкретными значениями:
Так:

Type
 TMas = Array[1..5] of LogInt;

 Var
  MasZero : TMas = (4,4,4,4,4);
  Mas2      : TMas;

 Begin
  ...
  While Mas2 <> MasZero do ...

Или корректнее (быстрее) так:?

Function Equa(Mas:TMas):Boolean;
 var
  N:Byte;
 Begin
  Result:=TRUE:
  For N:=1 to 5 do
   If Mas[N] <> 4 Then Result:=FALSE;
 End;

While Not(Equa(Mas2)) do ...

Примерный размер массива: 0..87499

[maxionans]

Если есть эталонный массив, то лучше, на мой взгляд, сравнивать проверяемый массив с эталоном используя CompareMem.

[Alex Cones]

Просмотрел форум на предмет CompareMem. Нашел всего несколько тем. В одной из них обнаружил этот код:

var t2,t:TMemoryStream;
.....
begin
 if t.Size=t2.Size then 
  if CompareMem(t.Memory,t2.Memory,t.Size) then // Одинаковые
end;

Т.е. CompareMem работает только через TMemoryStream. Как тогда перевести массив в этот тип?

[maxionans]

Нет, CompareMem всего-лишь требует на входе указатели на два блока данных. В случае с массивами, её можно вызывать так:

CompareMem( @Arr1[ 0 ], @Arr2[ 0 ], Length( Arr1 ) * SizeOf( Arr1[ 0 ] ) );

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#" (а не значка #). И не значком цитаты.
Вы не знали? Почитайте правила раздела...
Модератор

[Alex Cones]

Благодарю, при первой возможности проверю.