function CompareFile(sFile1, sFile2: stirng): boolean; var st1, st2: TStream; c1, c2: byte; begin Result := true; st1 := TFileStream.Create(sFile1, fmOpenReadWrite); st2 := TFileStream.Create(sFile2, fmOpenReadWrite);
Result := (st1.Size = st2.Size); if not Result then Exit; repeat st1.Read(c1, 1); st2.Read(c2, 1); if c1 <> c2 then begin Result := false; Exit; end; until st1.Position = st1.Size end;
----------------------------------------------
www.acreport.com
function CompareFile(sFile1, sFile2: stirng): boolean; var st1, st2: TStream; c1, c2: byte; begin Result := true; st1 := TFileStream.Create(sFile1, fmOpenReadWrite); st2 := TFileStream.Create(sFile2, fmOpenReadWrite);
Result := (st1.Size = st2.Size); if not Result then Exit; repeat st1.Read(c1, 1); st2.Read(c2, 1); if c1 <> c2 then begin Result := false; st1.Free; st2.Free; Exit; end; until st1.Position = st1.Size st1.Free; st2.Free; end;
----------------------------------------------
www.acreport.com