Mit folgenden Codes kann ich nun die Werte in grün auslesen:
d00 1 0 2048 1 1
92 b2 a2 b2 b2 a2 b2 b2 a2 b2 b2 a2
Delphi-Quellcode:
function GetTok(const Str: string; const Idx: Integer; const Sep: Char): string;
var
StrLen: Integer;
StrIdx: Integer;
ResLen: Integer;
TokIdx: Integer;
begin
Result := '';
if Idx > 0 then
begin
StrLen := Length(Str);
SetLength(Result, StrLen);
ResLen := 0;
TokIdx := 0;
for StrIdx := 1 to StrLen do
begin
if (Str[StrIdx] <> Sep) and ((StrIdx = 1) or (Str[StrIdx-1] = Sep)) then
Inc(TokIdx);
if TokIdx > Idx then
Break
else if (TokIdx = Idx) and (Str[StrIdx] <> Sep) then
begin
Inc(ResLen);
Result[ResLen] := Str[StrIdx];
end;
end;
SetLength(Result, ResLen);
end;
end;
Delphi-Quellcode:
if pos(uppercase(' '),uppercase(listbox1.items[i])) > 0 then
begin
temp:=listbox1.Items[i];
for tempi := 7 to length(temp) do
begin
value:=GetTok(temp, tempi, ' ');
//Showmessage(value);
if (strtoint(value) and $00100000) <> 0 then checkbox1.checked:=true else checkbox1.checked:=false;
end;
end;
nur value währe kein gültiger integer:
if (strtoint(value) and $00100000) <> 0 then checkbox1.checked:=true else checkbox1.checked:=false;