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