くだすれDelphi(超初心者用)その55at TECH
くだすれDelphi(超初心者用)その55 - 暇つぶし2ch48:デフォルトの名無しさん
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;


次ページ
続きを表示
1を表示
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch