dateibeziehungen.pas: tGenerischeAbhaengigkeit.count neu

1 files changed, 6 insertions, 0 deletions

diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index f64c1c0..2bb15d5 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -76,6 +76,7 @@ type
     destructor destroy; override;
     function findeQuellen(dats: tDateienMitDaten): boolean;
     procedure generiereErben(var es: tExpliziteAbhaengigkeiten);
+    function count: longint; inline;
   end;
 
   tExpliziteAbhaengigkeit = class(tObject)
@@ -652,6 +653,11 @@ begin
   neuSums.free;
 end;
 
+function tGenerischeAbhaengigkeit.count: longint;
+begin
+  result:=length(_quellens);
+end;
+
 // tExpliziteAbhaengigkeit **************************************************************
 
 constructor tExpliziteAbhaengigkeit.create;