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;

[p80286]

Für die ganz schnellen, erst die Größe der beiden Dateien vergleichen!

Gruß
K-H

[Deep-Sea]

@DeddyH:
Dann lade mal bitte zwei 20GB große Dateien in den Arbeitsspeicher


PS: Hashen lohnt sich eig. erst, wenn man mehrere Dateien mit einer vergleichen will.

[value is NULL]

ich mache es jetzt mit der FileCompare unit!
Funktioniert perfekt!

danke!

[DeddyH]

Zitat von Deep-Sea:

@DeddyH:
Dann lade mal bitte zwei 20GB große Dateien in den Arbeitsspeicher

Hab ich etwa gesagt, dass ich hier mal eben die ultimative Routine aus dem Handgelenk schreibe? Es ging ja nur darum, das vorher angedeutete Prinzip in Code zu formulieren. Wenn ich natürlich gewusst hätte, das Hagen da schon was Fertiges in petto hat, hätte ich mir die Mühe gespart

[value is NULL]

Kann ich auch irgendwie herausfinden, was genau sich geändert hat? zB die betroffene Zeile?

LG

[DeddyH]

Geht es nur um Textdateien? Ansonsten gibt es ja keine Zeilen.

[value is NULL]

^jap ich vergleiche praktisch 2 textdateien!

LG