From 4282de49adffa6fbca70a53c4669caa98e207a3f Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Mon, 19 Feb 2018 13:20:25 +0100 Subject: dateibeziehungen.pas: tGenerischeAbhaengigkeit.count neu --- dateibeziehungen.pas | 6 ++++++ 1 file changed, 6 insertions(+) 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; -- cgit v1.2.3-70-g09d2