File compare

[stahli]

Nur mal noch bezüglich Gleichheitsprüfung:
Vorausgesetzt, die Texdateien sind nicht zu groß, könnte man sie einfach in 2 TStringList laden und auf SL1.Text = SL2.Text prüfen. Zumindest wäre das ein recht unkomplizierter Weg.

[DeddyH]

Damit bekommst aber keine Zeilennummer bei evtl. Unterschieden

[value is NULL]

so in etwa?

ich mein sieht grauslich aus aber wäre das prinzip richtig?

Delphi-Quellcode:

    i := 0;
    i2 := 0;
    countsum := getlinecount('C:\myfile.txt');
    sl := TStringlist.Create;
    sl2 := TStringlist.Create;
    sl.loadfromfile('C:\myfile.txt');
    sl2.loadfromfile('C:\my2ndFile.txt');
    while i < countsum do begin
        i := i + 1;
        i2 := i2 + 1;
        if sl[i] = sl[i2] then writeln('Kein Unterschied');
    end;
...

[DeddyH]

Ungetestet:

Delphi-Quellcode:

function FilesEqual(const First, Second: TFilename; out DiffLine: integer): Boolean;
var
  s1, s2: TStringlist;
  i: integer;
begin
  Result := FileExists(First) and FileExists(Second);
  if Result then
    begin
      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
              Result := s1[i] = s2[i];
              if not Result then
                begin
                  DiffLine := i;
                  i := s1.Count;
                end;  
              inc(i);
            end;
        finally
          s2.Free;
        end;
      finally
        s1.Free;
      end;
    end;
end;

[himitsu]

Delphi-Quellcode:

  Result := FileExists(First) and FileExists(Second);
  if Result then
    begin
      s1 := TStringlist.Create;
      try
        s2 := TStringlist.Create;
        try
          s1.LoadFromFile(First);
          s2.LoadFromFile(Second);
          Result := s1.Count = s2.Count
          if Result then
            begin
              i := 0;
              while (i < s1.Count) and (i < s2.Count) do
                begin
                  Result := s1[i] = s2[i];
                  if not Result then
                    begin
                      DiffLine := i;
                      Break;
                    end;
                  inc(i);
                end;
            end
          else
            DiffLine := Min(s1.Count, s2.Count);
        finally
          s2.Free;
        end;
      finally
        s1.Free;
      end;
    end;

[value is NULL]

was passiert aber wenn mehrere lines nicht gleich sind.. result ist doch immer nur 1 Wert?

[DeddyH]

Klar, die erste unterschiedliche Zeile. Ansonsten musst Du es halt so umbauen/erweitern, dass eine Liste hinten rauskommt.