diff options
| -rw-r--r-- | Make.lps | 129 | ||||
| -rw-r--r-- | dateibeziehungen.pas | 17 |
2 files changed, 80 insertions, 66 deletions
@@ -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; |