dateibeziehungen.pas: istNamenObermengeVon verwenden

1 files changed, 2 insertions, 12 deletions

diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index d9b30dd..902f724 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -85,7 +85,7 @@ type
     constructor create;
     destructor destroy; override;
     function hatQuelleVonAlsZiel(abh: tExpliziteAbhaengigkeit): boolean;
-    function ersetzbarDurch(abh: tExpliziteAbhaengigkeit): boolean;
+    function ersetzbarDurch(abh: tExpliziteAbhaengigkeit): boolean; inline;
     function pruefeObZuTun: boolean;
     function dump: string;
   end;
@@ -698,18 +698,8 @@ begin
 end;
 
 function tExpliziteAbhaengigkeit.ersetzbarDurch(abh: tExpliziteAbhaengigkeit): boolean;
-var
-  i,j: longint;
 begin
-  result:=true;
-  for i:=0 to ziele.count-1 do begin
-    result:=false;
-    for j:=0 to abh.ziele.count-1 do
-      if abh.ziele[j].name = ziele[i].name then
-        result:=true;
-    if not result then
-      exit;
-  end;
+  result:=abh.ziele.istNamenObermengeVon(ziele);
 end;
 
 function tExpliziteAbhaengigkeit.pruefeObZuTun: boolean;