Gibt es vielleicht noch eine andere Methode nach den Werten zu suchen und nicht
Code:
If (Buffer[I] = $02) and
(Buffer[I + 1] = $40) and
(Buffer[I + 2] = $23) Then Begin
Also das ich gleich komplett nach z.B. $020423 und nicht alles einzeln mit "and" verknüpfen. Ich habe das mal in einer Extraschleife probiert, aber leider kann ich das nicht wirklich in die Funktion einbringen, hier mein Test, der auch einzeln funktioniert, aber irgendwie kann ich das nicht einbringen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var i, x: Integer;
const Werte = '024023159745';
begin
x := 1;
For i := 0 to round(length(Werte)/2)-1 do
begin
Showmessage(Werte[x]+Werte[x+1]);
x := x + 2;
end;
end;
Könnte mir vielleicht jemand helfen, anhand des Beispiels von himitsu bzw. einem eigenem, wie ich nach den Hexwerten suchen kann, die bei mir in "Werte" stehen?
Danke UC