From cdc04ddb148a2610e77e9673295baec5a1c27cf9 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Tue, 21 Nov 2017 11:06:31 +0100 Subject: dateibeziehungen.pas: bugfix: Rückgabewert von zieleHinzufuegen gibt nicht Erfolg bekannt und ist dementsprechend kein Grund abzubrechen! MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Make.lps | 6 +++--- dateibeziehungen.pas | 5 +---- 2 files changed, 4 insertions(+), 7 deletions(-) diff --git a/Make.lps b/Make.lps index cc450a9..fd7d175 100644 --- a/Make.lps +++ b/Make.lps @@ -42,9 +42,9 @@ - - - + + + diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas index 98f0735..f41e6a6 100644 --- a/dateibeziehungen.pas +++ b/dateibeziehungen.pas @@ -445,10 +445,7 @@ begin else begin i:=findFirst(zielFkt,$3f,sR); while i=0 do begin - if not zieleHinzufuegen(ziele,quellen,extractFileDir(zielFkt)+'/'+sR.name) then begin - findClose(sR); - exit; - end; + zieleHinzufuegen(ziele,quellen,extractFileDir(zielFkt)+'/'+sR.name); i:=findNext(sR); end; findClose(sR); -- cgit v1.2.3-54-g00ecf