From 6bf175d122e119b7ab243b116f1c512ed461014e Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Tue, 20 Feb 2018 13:23:02 +0100 Subject: dateibeziehungen.pas: istNamenObermengeVon verwenden --- dateibeziehungen.pas | 14 ++------------ 1 file 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; -- cgit v1.2.3-54-g00ecf