Bestimmte Bytefolge erkennen

[Neotracer64]

Danke für die Anregung.
Ich habe die Idee so bei mir implementier:

Delphi-Quellcode:

procedure TfrmDemDoc.ParsePlayerInfo;
var
  i       : Integer;
  bytearr : array [0..6] of Byte;
  buf     : Byte;
begin
  bytearr[0] :=  0;
  bytearr[1] :=  0;
  bytearr[2] :=  0;
  bytearr[3] :=  0;
  bytearr[4] :=  0;
  bytearr[5] :=  0;
  bytearr[6] :=  0;
  For i := 0 To HexEdit.DataSize - 1 Do
    begin
      buf := ord(HexEdit.GetMemory(i));
      bytearr[0] :=  bytearr[1];
      bytearr[1] :=  bytearr[2];
      bytearr[2] :=  bytearr[3];
      bytearr[3] :=  bytearr[4];
      bytearr[4] :=  bytearr[5];
      bytearr[5] :=  bytearr[6];
      bytearr[6] :=  buf;
      If (Bytearr[0] = ord($0D)) and
         (Bytearr[3] = ord($00)) and
         (Bytearr[4] = ord($00)) and
         ((Bytearr[5] = ord($00)) or (Bytearr[5] = ord($01)))  and
         (Bytearr[6] = ord($5C)) then
          begin
            ShowMessage('Gefunden an: ' + IntToHex(i,8));
          end;
    end;
end;

Klappt wunderbar.