【文件属性】：
文件名称：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)