Mega Code Archive
How to tell if two files are equal
<![CDATA[
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
// If you want to find out of 2 files are equal, then you can use this function:
function Are2FilesEqual(const fileName1, fileName2: string): boolean;
var
ms1, ms2: TMemoryStream;
begin
result := False;
ms1 := TMemoryStream.Create;
try
ms1.LoadFromFile(fileName1);
ms2:= TMemoryStream.Create;
try
ms2.LoadFromFile(fileName2);
if ms1.size = ms2.size then
result := CompareMem(ms1.Memory, ms2.memory, ms1.size);
finally
ms2.free;
end;
finally
ms1.free;
end
end;
//And you can call it like this:
procedure TForm1.Button1Click(Sender: TObject);
var
bSame:boolean;
begin
bSame:=Are2FilesEqual('C:\Test1.txt','C:\test2.txt');
if bSame then
Showmessage('The files are equal')
else
Showmessage('The files are Not equal');
end;
end.
]]>