Dateien byteweise vergleichen

[Neutral General]

Verbesserungsvorschlag:

Delphi-Quellcode:

function ByteCompFiles(const aSourceFile, aDestFile: String): Boolean; 
var SourceFile, DestFile: TMemoryStream; 
begin 
  SourceFile := TMemoryStream.Create; 
  DestFile := TMemoryStream.Create; 
  try 
    SourceFile.LoadFromFile(aSourceFile); 
    DestFile.LoadFromFile(aDestFile); 
    Result := (SourceFile.Size = DestFile.Size) and 
              (CompareMem(SourceFile.Memory, DestFile.Memory, SourceFile.Size));       
  finally 
    DestFile.Free; 
    SourceFile.Free; 
  end; 
end;