summaryrefslogtreecommitdiff
path: root/dateibeziehungen.pas
diff options
context:
space:
mode:
Diffstat (limited to 'dateibeziehungen.pas')
-rw-r--r--dateibeziehungen.pas8
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);