Ein Array schnell auf 0 Werte prüfen

[marabu]

Hallo,

am schnellsten dürfte der Einsatz einer kurzen ASM-Funktion auf der Basis von SCASB sein.

Delphi-Quellcode:

function CheckZeroMem(p: PByte; size: Word): Boolean;
var
  b: Byte;
begin
  b := 0;
  while (size > 0) and (b = 0) do
  begin
    b := b or p^;
    Dec(size);
    Inc(p);
  end;
  Result := b = 0;
end;

Grüße vom marabu