File compare

[DeddyH]

Ungetestet:

Delphi-Quellcode:

function FilesAreEqal(const First, Second: TFilename): Boolean;
var
  FirstStream, SecondStream: TMemoryStream;
begin
  Result := FileExists(First) and FileExists(Second);
  if Result then
    begin
      FirstStream := TMemoryStream.Create;
      try
        SecondStream := TMemoryStream.Create;
        try
          FirstStream.LoadFromFile(First);
          SecondStream.LoadFromFile(Second);
          Result := FirstStream.Size = SecondStream.Size;
          if Result then
            begin
              FirstStream.Position := 0;
              SecondStream.Position := 0;
              Result := CompareMem(FirstStream.Memory, SecondStream.Memory);
            end;
        finally
          SecondStream.Free;
        end;
      finally
        FirstStream.Free;
      end;
    end;
end;