Hallo.
Für den speziellen Fall hat xZise ja schon die optimale Lösung. Bei der allgemeinen Lösung für beliebige Array-Größen müsste bei leerem array eigentlich eine
Exception geworfen werden.
Delphi-Quellcode:
function AllBytesEqual(const a: array of byte): Boolean;
var
i: Integer;
begin
Result := false;
for i := Succ(Low(a)) to High(a) do
if a[i] <> a[Pred(i)] then
Exit;
Result := Length(a) > 0;
end;
Grüße vom marabu