diff options
Diffstat (limited to 'dateibeziehungen.pas')
-rw-r--r-- | dateibeziehungen.pas | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas index 555127b..e69bf56 100644 --- a/dateibeziehungen.pas +++ b/dateibeziehungen.pas @@ -571,9 +571,11 @@ end; procedure tGenerischeAbhaengigkeit.generiereErben(var es: tExpliziteAbhaengigkeiten); var - i,j: longint; - s: string; + i,j: longint; + s: string; + neuSums: tMyStringList; begin + neuSums:=tMyStringList.create; for i:=0 to matchCount-1 do begin es.add(tExpliziteAbhaengigkeit.create); for j:=0 to quellen[i].count-1 do @@ -604,13 +606,18 @@ begin es.last.befehle.add(s); s:='sha512sum'; for j:=0 to quellen[i].count-1 do - s:=s+' "'+quellen[i][j].name+'"'; + neuSums.add(quellen[i][j].name); for j:=0 to ziele[i].count-1 do - s:=s+' "'+ziele[i][j].name+'"'; + neuSums.add(ziele[i][j].name); + neuSums.sort; + neuSums.uniq('-'); + for j:=0 to neuSums.count-1 do + s:=s+' "'+escape(neuSums[j],'"\','\')+'"'; s:=s+' >> '+_pruefsummenDatei; es.last.befehle.add(s); end; end; + neuSums.free; end; // tExpliziteAbhaengigkeit ************************************************************** |