12/11/24 20:28:45.09 .net
LOOP1:
if (DATA[i] = $3C) and
(DATA[i+1] = $61) and
(DATA[i+2] = $20) and
(DATA[i+3] = $68) and
(DATA[i+4] = $72) and
(DATA[i+5] = $65) and
(DATA[i+6] = $66) and
(DATA[i+7] = $3D) and
(DATA[i+8] = $22) then
begin
i:=i+9;
while (DATA[i] <> $22) do
begin
str:=str+chr(DATA[i]);
Inc(i);
end;
ListBox1.Items.Add(str);
str:='';
end;
Inc(i); if i>length(DATA) then exit;
goto LOOP1;