相关疑难解决方法(0)

var
  FileBuff: TBytes;
  Pattern: TBytes;
begin
  FileBuff := filetobytes(filename);
  Result := CompareMem(@Pattern[0], @FileBuff[0], Length(Pattern));
end;

有没有任何功能,如

Result := Pos(@Pattern[0], @FileBuff[0]);