diff options
| -rw-r--r-- | dateibeziehungen.pas | 6 |
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; |