dateibeziehungen.pas: tExpliziteAbhaengigkeit.dump neu

2 files changed, 80 insertions, 66 deletions

diff --git a/Make.lps b/Make.lps
index 01cb6f2..29c6750 100644
--- a/Make.lps
+++ b/Make.lps
@@ -7,23 +7,24 @@
       <Unit0>
         <Filename Value="Make.lpr"/>
         <IsPartOfProject Value="True"/>
-        <CursorPos X="37" Y="10"/>
-        <UsageCount Value="91"/>
+        <TopLine Value="47"/>
+        <CursorPos X="16" Y="70"/>
+        <UsageCount Value="92"/>
         <Loaded Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="Machdatei.txt"/>
         <IsPartOfProject Value="True"/>
-        <UsageCount Value="91"/>
+        <UsageCount Value="92"/>
         <DefaultSyntaxHighlighter Value="None"/>
       </Unit1>
       <Unit2>
         <Filename Value="tools.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="4"/>
-        <TopLine Value="413"/>
-        <CursorPos X="23" Y="430"/>
-        <UsageCount Value="70"/>
+        <TopLine Value="24"/>
+        <CursorPos X="11" Y="41"/>
+        <UsageCount Value="71"/>
         <Loaded Value="True"/>
       </Unit2>
       <Unit3>
@@ -32,7 +33,7 @@
         <EditorIndex Value="2"/>
         <TopLine Value="288"/>
         <CursorPos X="14" Y="322"/>
-        <UsageCount Value="67"/>
+        <UsageCount Value="68"/>
         <Loaded Value="True"/>
       </Unit3>
       <Unit4>
@@ -41,10 +42,10 @@
         <UnitName Value="dateiBeziehungen"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="815"/>
-        <CursorPos X="20" Y="833"/>
-        <FoldState Value=" T3k103C2322_"/>
-        <UsageCount Value="59"/>
+        <TopLine Value="1007"/>
+        <CursorPos X="36" Y="1039"/>
+        <FoldState Value=" T3k003C pjYkO0A3315"/>
+        <UsageCount Value="60"/>
         <Loaded Value="True"/>
       </Unit4>
       <Unit5>
@@ -64,7 +65,7 @@
         <EditorIndex Value="3"/>
         <TopLine Value="857"/>
         <CursorPos X="18" Y="862"/>
-        <UsageCount Value="11"/>
+        <UsageCount Value="12"/>
         <Loaded Value="True"/>
       </Unit7>
       <Unit8>
@@ -132,123 +133,123 @@
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="tools.pas"/>
-        <Caret Line="41" Column="78" TopLine="23"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="542" Column="32" TopLine="530"/>
       </Position1>
       <Position2>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="1024" Column="84" TopLine="1007"/>
+        <Caret Line="114" Column="28" TopLine="97"/>
       </Position2>
       <Position3>
-        <Filename Value="tools.pas"/>
-        <Caret Line="41" Column="35" TopLine="23"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="925" Column="27" TopLine="905"/>
       </Position3>
       <Position4>
-        <Filename Value="tools.pas"/>
-        <Caret Line="272" Column="12" TopLine="255"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="79" Column="26" TopLine="62"/>
       </Position4>
       <Position5>
-        <Filename Value="tools.pas"/>
-        <Caret Line="42" Column="31" TopLine="24"/>
+        <Filename Value="Make.lpr"/>
+        <Caret Line="70" Column="16" TopLine="47"/>
       </Position5>
       <Position6>
-        <Filename Value="tools.pas"/>
-        <Caret Line="272" Column="33" TopLine="244"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="115" Column="31" TopLine="99"/>
       </Position6>
       <Position7>
-        <Filename Value="tools.pas"/>
-        <Caret Line="328" Column="36" TopLine="307"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="1016" Column="13" TopLine="996"/>
       </Position7>
       <Position8>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="33" Column="22" TopLine="10"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="97" Column="5" TopLine="79"/>
       </Position8>
       <Position9>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="181" Column="31" TopLine="152"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="32" Column="3" TopLine="14"/>
       </Position9>
       <Position10>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="302" Column="32" TopLine="285"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="16" Column="3"/>
       </Position10>
       <Position11>
-        <Filename Value="../units/mystringlistunit.pas"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="15" Column="54"/>
       </Position11>
       <Position12>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="33" Column="36" TopLine="4"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="14"/>
       </Position12>
       <Position13>
-        <Filename Value="../units/mystringlistunit.pas"/>
-        <Caret Line="181" Column="31" TopLine="152"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="1013" Column="24" TopLine="995"/>
       </Position13>
       <Position14>
-        <Filename Value="tools.pas"/>
-        <Caret Line="328" Column="53" TopLine="310"/>
+        <Filename Value="dateibeziehungen.pas"/>
       </Position14>
       <Position15>
-        <Filename Value="tools.pas"/>
-        <Caret Line="41" Column="66" TopLine="24"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="14" Column="26"/>
       </Position15>
       <Position16>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="1024" Column="84" TopLine="1007"/>
+        <Caret Line="32" Column="58" TopLine="3"/>
       </Position16>
       <Position17>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="981" Column="33" TopLine="976"/>
+        <Caret Line="33" Column="63" TopLine="4"/>
       </Position17>
       <Position18>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="986" Column="15" TopLine="968"/>
+        <Caret Line="35" Column="58" TopLine="6"/>
       </Position18>
       <Position19>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="987" Column="25" TopLine="969"/>
+        <Caret Line="40" Column="46" TopLine="11"/>
       </Position19>
       <Position20>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="988" Column="15" TopLine="970"/>
+        <Caret Line="41" Column="43" TopLine="12"/>
       </Position20>
       <Position21>
-        <Filename Value="tools.pas"/>
-        <Caret Line="50" Column="34" TopLine="32"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="89" Column="27" TopLine="67"/>
       </Position21>
       <Position22>
-        <Filename Value="tools.pas"/>
-        <Caret Line="436" Column="55" TopLine="407"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="175" Column="80" TopLine="124"/>
       </Position22>
       <Position23>
-        <Filename Value="tools.pas"/>
-        <Caret Line="438" Column="12" TopLine="423"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="177" Column="34" TopLine="124"/>
       </Position23>
       <Position24>
-        <Filename Value="tools.pas"/>
-        <Caret Line="12" Column="46"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="282" Column="39" TopLine="139"/>
       </Position24>
       <Position25>
-        <Filename Value="tools.pas"/>
-        <Caret Line="15" Column="16"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="585" Column="35" TopLine="556"/>
       </Position25>
       <Position26>
-        <Filename Value="tools.pas"/>
-        <Caret Line="49" Column="42" TopLine="31"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="680" Column="23" TopLine="652"/>
       </Position26>
       <Position27>
-        <Filename Value="tools.pas"/>
-        <Caret Line="370" Column="42" TopLine="352"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="89" Column="18" TopLine="71"/>
       </Position27>
       <Position28>
-        <Filename Value="tools.pas"/>
-        <Caret Line="382" Column="25" TopLine="364"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="670" Column="38" TopLine="641"/>
       </Position28>
       <Position29>
-        <Filename Value="tools.pas"/>
-        <Caret Line="413" Column="21" TopLine="395"/>
+        <Filename Value="dateibeziehungen.pas"/>
+        <Caret Line="1042" Column="14" TopLine="1021"/>
       </Position29>
       <Position30>
         <Filename Value="dateibeziehungen.pas"/>
-        <Caret Line="988" Column="15" TopLine="970"/>
+        <Caret Line="1033" Column="55" TopLine="1021"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
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;