File compare

[DeddyH]

Also nochmal aufgebohrt (aber immer noch nicht getestet^^):

Delphi-Quellcode:

function FilesEqual(const First, Second: TFilename; DiffList: TStrings): Boolean;
var
  s1, s2: TStringlist;
  i: integer;
begin
  Assert(Assigned(DiffList));
  Result := FileExists(First) and FileExists(Second);
  if Result then
    begin
      DiffList.BeginUpdate;
      try
        DiffList.Clear;
        s1 := TStringlist.Create;
        try
          s1.LoadFromFile(First);
          s2 := TStringlist.Create;
          try
            s2.LoadFromFile(Second);
            i := 0;
            while (i < s1.Count) and (i < s2.Count) do
              begin
                if s1[i] <> s2[i] then
                  DiffList.AddObject(s1[i], TObject(i));
                inc(i);
              end;
          finally
            s2.Free;
          end;
        finally
          s1.Free;
        end;
      finally
        DiffList.EndUpdate;
      end;
      Result := DiffList.Count = 0;
    end;
end;