diff options
Diffstat (limited to 'dateibeziehungen.pas')
-rw-r--r-- | dateibeziehungen.pas | 8 |
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); |