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.
