... einen hab' ich noch!
Aufbauend auf den Vorschlag vom Jürgen:
Delphi-Quellcode:
function ByteArray_Contains( const arr: Array of Byte; const c: byte ): Boolean;
var
i0: integer;
begin
i0 := Low(arr);
while (iO <=High(arr)) and (arr[iO] <> c) do
inc(iO);
Result := (iO <= High(arr));
end;
Grüße,
Klaus