array[1..10] auf Wert prüfen?

[Ydobon]

Oder so vielleicht?

Delphi-Quellcode:

var testFeld, jajajaFeld: Array[1..10] of Boolean;
begin
  ...
  FillChar(jajajaFeld, 10, true);
  if CompareMem(@jajajaFeld, @testFeld, 10) then ShowMessage('Ups');