مقایسه دو تا فایل

[ALINAMAZI]

با سلام به همه دوستان :
چگونه میشود در محیط دلفی دو تا فایل را از نظر یکسان بودن مقایسه کرد خاهشمندم دستور آنرا برایم بنویسید
با تشکر

[Felony]

از نظر یکسان بودن چیشون ؟

حجمشون , نوعشون .... ؟؟؟

[ALINAMAZI]

از نظر یکسان بودن چیشون ؟

حجمشون , نوعشون .... ؟؟؟
با تشکر از توجه شما
هم حجمش هم نوعش هم یکسان بودن رکوردهایش

[Hsimple11]

این کد دو فایل را از لحاظ Size با هم مقایسه میکند :


function Are2FilesEqual(const File1, File2: TFileName): Boolean;
var
ms1, ms2: TMemoryStream;
begin
Result := False;
ms1 := TMemoryStream.Create;
try
ms1.LoadFromFile(File1);
ms2 := TMemoryStream.Create;
try
ms2.LoadFromFile(File2);
if ms1.Size = ms2.Size then
Result := CompareMem(ms1.Memory, ms2.memory, ms1.Size);
finally
ms2.Free;
end;
finally
ms1.Free;
end
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then
if Opendialog2.Execute then
if Are2FilesEqual(Opendialog1.FileName, Opendialog2.FileName) then
ShowMessage('Files are equal.');
end;