relative Pfade in .summen speichern

1 files changed, 7 insertions, 1 deletions

diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index fcaec5f..c244a79 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -949,7 +949,7 @@ var
     sumDateien:              tStringlist;
   gefunden:                  boolean;
   lokTest:                   tRegExpr;
-  befehl:                    string;
+  befehl,datei,verzeichnis:  string;
 begin
   befehle:=tStringlist.create;
   geaenderteDateien:=tStringlist.create;
@@ -992,6 +992,12 @@ begin
       testeObBefehlLokal(befehle[i],extractfiledir(ausgabeDatei),lokTest);
     lokTest.free;
   end;
+  verzeichnis:=extractfilepath(pruefsummenDatei);
+  for i:=0 to geaenderteDateien.count-1 do begin
+    datei:=geaenderteDateien[i];
+    if startetMit(verzeichnis,datei) then
+      geaenderteDateien[i]:=datei;
+  end;
   for i:=geaenderteDateien.count-1 downto 0 do begin
     if geaenderteDateien[i]='.uralt.' then begin
       geaenderteDateien.delete(i);