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