dateibeziehungen.pas: tExpliziteAbhaengigkeit.dump neu

1 files changed, 15 insertions, 2 deletions

diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index 41b39fc..764ff9e 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -10,9 +10,7 @@ uses
 type
   tZeilenTyp = (ztSuche,ztZiel,ztQuelle,ztBefehl);
 
-  pTGenerischeAbhaengigkeit = ^tGenerischeAbhaengigkeit;
   tGenerischeAbhaengigkeit = class;
-  pTExpliziteAbhaengigkeit = ^tExpliziteAbhaengigkeit;
   tExpliziteAbhaengigkeit = class;
 
   tGenerischeAbhaengigkeiten = class(tFPList)
@@ -88,6 +86,7 @@ type
     function hatQuelleVonAlsZiel(abh: tExpliziteAbhaengigkeit): boolean;
     function ersetzbarDurch(abh: tExpliziteAbhaengigkeit): boolean;
     function pruefeObZuTun: boolean;
+    function dump: string;
   end;
 
   tMach = class
@@ -668,6 +667,20 @@ begin
       ziele[i].aktuell:=aWirdErneuert;
 end;
 
+function tExpliziteAbhaengigkeit.dump: string;
+var
+  i: longint;
+begin
+  result:='';
+  for i:=0 to befehle.count-1 do
+    result:=result+#10'B: '+befehle[i];
+  for i:=0 to quellen.count-1 do
+    result:=result+#10'Q: '+quellen[i].name;
+  for i:=0 to ziele.count-1 do
+    result:=result+#10'Z: '+ziele[i].name;
+  delete(result,1,1);
+end;
+
 // tMach ***********************************************************************
 
 constructor tMach.create;