dateibeziehungen.pas: bugfix in zieleHinzufuegen

1 files changed, 3 insertions, 3 deletions

diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index cc8532a..55fe2ea 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -445,7 +445,7 @@ begin
     else begin
       i:=findFirst(zielFkt,$3f,sR);
       while i=0 do begin
-        zieleHinzufuegen(ziele,quellen,extractFileDir(zielFkt)+'/'+sR.name);
+        result:=zieleHinzufuegen(ziele,quellen,extractFileDir(zielFkt)+'/'+sR.name) or result;
         i:=findNext(sR);
       end;
       findClose(sR);
@@ -466,12 +466,12 @@ begin
     u:=copy(zielFkt,ende+1,length(zielFkt));
     if unEscapedPos('..',t)>0 then begin
       for i:=strtoint(copy(t,1,unEscapedPos('..',t)-1)) to strtoint(copy(t,unEscapedPos('..',t)+2,length(t))) do
-        zieleHinzufuegen(ziele,quellen,s+intToStr(i)+u);
+        result:=zieleHinzufuegen(ziele,quellen,s+intToStr(i)+u) or result;
     end
     else begin
       t:=t+',';
       while unEscapedPos(',',t)>0 do begin
-        zieleHinzufuegen(ziele,quellen,s+copy(t,1,unEscapedPos(',',t)-1)+u);
+        result:=zieleHinzufuegen(ziele,quellen,s+copy(t,1,unEscapedPos(',',t)-1)+u) or result;
         delete(t,1,unEscapedPos(',',t));
       end;
     end;