掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バイナリファイルの読み込み (ID：27524)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TStreamを使う方法です。 var FS :TFileStream; Str,Tgt:String; i:Integer; begin Tgt := '12'; FS:=TFileStream.Create('ここは読み込むファイル名',fmOpenRead); Try SetLength(Str,FS.Size); FS.ReadBuffer(Str,FS.Size); for i:=1 to Length(Str) do if Str[i] = Tgt[1] then if Str[i + 1] = Tgt[2] then {ここから後ろがデータ} Finally FS.Free; End; end; などはどうですか？ 動作検証はしていません。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.