文件名称：Delphi 文件比较的例子.rar
文件大小：7KB
文件格式：RAR
更新时间：2022-07-30 11:35:33
Delphi源码-文件操作
与大家分享一个简单的Delphi 文件比较的例子，注意：本示例只能对数据量较小的文件进地比较，运行后，需要指定源文件、目标文件，然后单击比较文件按钮，即可显示出比较结果： try SetLength(BufferA,StreamA.Size); SetLength(BufferB,StreamB.Size); if StreamA.Size<>StreamB.Size then begin Application.MessageBox('文件比较结果：文件不同！','信息',64); end else begin StreamA.ReadBuffer(BufferA[0],StreamA.Size); StreamB.ReadBuffer(BufferB[0],StreamB.Size); for i:=0 to StreamA.Size-1 do begin if BufferA[i]<>BufferB[i] then begin Application.MessageBox('文件比较结果：文件不同！','信息',64); Exit; end; end; Application.MessageBox('文件比较结果：文件相同！','信息',64); end; except showmessage('此文件不能进行比较') end;
【文件预览】：
codesc.net
----文件比较()
--------Project1.res(876B)
--------Unit1.dfm(1KB)
--------Unit1.ddp(51B)
--------Project1.cfg(434B)
--------Unit1.pas(2KB)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(6KB)