C#
C++ (7)
Delphi (619)
.NET (2)
Database (72)
Delphi IDE (90)
Network (39)
Printing (3)
Strings (12)
VCL (83)
Windows with Delphi (280)
Java (8)
JavaScript (27)
perl (9)
php (4)
VBScript (1)
Visual Basic (1)
Exchange Links
About this site
Are 2 files identical? Do a 32bit CRC sum..
3 comments. Current rating: 
(2 votes). Leave comments and/ or rate it.
To determine, whether 2 files are identical, I first would compare their sizes.
If they are identical, I would calculate a 32bit CRC sum for each of them and compare the results.
It is extremely unlikely that the files are different but have the same CRC.
Someone asked me:
"Are you sure? Take for example two files, where the only difference would
be that in one of them, I turned a "hello" into a "ehllo". I guess the checksum
would be the same, don't you think?"
Answer: No, a CRC might even tell you where the difference was (if the files are really that short).
The following function does compute such a 32bit CRC (cyclic redundancy check) value:
function ComputeFileCRC32(const FileName : string): LongInt;
Since the polynome table is rather long, you may download the pascal file: crc32.zip (2.2kB).
To compare, use something like this:
 |  | |
function Ident (const fn1, fn2 : string) : boolean; begin Ident := ComputeFileCRC32(fn1) = ComputeFileCRC32(fn2); end; | ||
 |  |
Comments:
