バイナリファイルで文字列を検索するには？ (ID:8170)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 園長先生：ひとすじクン、おうだんほどうを渡るときにはどうするの？ ひとスジ：は〜い、手を上げてわたりま〜す。 園長先生：そうね。じゃぁ、ふたすじクン、おうだんほどうを渡る前にはどうするの？ ふたスジ：は〜い、手をあらいま〜す♪ var p : PChar; begin with TMemoryStream.Create do begin LoadFromFile('ほにゃらら.bin'); p := AnsiStrPos(Memory, 'ほにゃらら'); if p <> nil then begin (p + Length('ほにゃらら'))^ := #0; ShowMessage(IntToStr(Integer(p-Memory))+'：'+ p); //めっけたで〜 end; Free; end; end;