掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バイナリデータを数値化して比較するには？ (ID：22271)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ベテラン勢何処行った… function isSameStream(streamA,streamB:TStream):boolean; var a,b:Byte; begin Result:=False; if streamA.Size<>streamB.Size then exit; streamA.Position:=0; streamB.Position:=0; repeat streamA.Read(a,sizeof(a)); streamB.Read(b,sizeof(b)); if a<>b then exit; until streamA.Position >= streamA.Size; Result:=True; end; procedure TForm1.Button1Click(Sender: TObject); var a,b:TFileStream; begin a:=TFileStream.Create('1.txt',fmOpenRead); b:=TFileStream.Create('2.txt',fmOpenRead); if isSameStream(a,b) then caption:='同じ' else caption:='違う'; a.Free; b.Free; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.