Ein Array schnell auf 0 Werte prüfen

[rawsoul]

Wie groß ist denn das Array? Ich hätte das ganze ohne IASM so gelöst:

Delphi-Quellcode:

type TIntArray=Array of Integer;
function IsEmptyArray(A:TIntArray):Boolean;
var
  I:Integer;
begin
  Result:=True;
  for I:=low(A) to high(A) do
    if A[I]<>0 then
    begin
      Result:=False;
      Break;
    end;
end;