Fix compile errors Hans

Sterretijdklok.lpi

@@ -39,8 +39,8 @@
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="0"/>
         <WindowIndex Value="0"/>
-        <TopLine Value="156"/>
-        <CursorPos X="57" Y="170"/>
+        <TopLine Value="129"/>
+        <CursorPos X="27" Y="153"/>
         <UsageCount Value="175"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -98,123 +98,123 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="317" Column="39" TopLine="305"/>
+        <Caret Line="324" Column="25" TopLine="314"/>
       </Position1>
       <Position2>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="324" Column="25" TopLine="314"/>
+        <Caret Line="330" Column="21" TopLine="311"/>
       </Position2>
       <Position3>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="330" Column="21" TopLine="311"/>
+        <Caret Line="314" Column="33" TopLine="301"/>
       </Position3>
       <Position4>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="314" Column="33" TopLine="301"/>
+        <Caret Line="1" Column="19" TopLine="1"/>
       </Position4>
       <Position5>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="1" Column="19" TopLine="1"/>
+        <Caret Line="123" Column="9" TopLine="93"/>
       </Position5>
       <Position6>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="123" Column="9" TopLine="93"/>
+        <Caret Line="160" Column="9" TopLine="130"/>
       </Position6>
       <Position7>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="160" Column="9" TopLine="130"/>
+        <Caret Line="161" Column="9" TopLine="131"/>
       </Position7>
       <Position8>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="161" Column="9" TopLine="131"/>
+        <Caret Line="190" Column="7" TopLine="160"/>
       </Position8>
       <Position9>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="190" Column="7" TopLine="160"/>
+        <Caret Line="281" Column="11" TopLine="251"/>
       </Position9>
       <Position10>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="281" Column="11" TopLine="251"/>
+        <Caret Line="1" Column="16" TopLine="1"/>
       </Position10>
       <Position11>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="1" Column="16" TopLine="1"/>
+        <Caret Line="127" Column="21" TopLine="97"/>
       </Position11>
       <Position12>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="127" Column="21" TopLine="97"/>
+        <Caret Line="129" Column="51" TopLine="99"/>
       </Position12>
       <Position13>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="129" Column="51" TopLine="99"/>
+        <Caret Line="141" Column="14" TopLine="111"/>
       </Position13>
       <Position14>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="141" Column="14" TopLine="111"/>
+        <Caret Line="1" Column="12" TopLine="1"/>
       </Position14>
       <Position15>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="1" Column="12" TopLine="1"/>
+        <Caret Line="330" Column="15" TopLine="300"/>
       </Position15>
       <Position16>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="330" Column="15" TopLine="300"/>
+        <Caret Line="338" Column="10" TopLine="320"/>
       </Position16>
       <Position17>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="338" Column="10" TopLine="320"/>
+        <Caret Line="339" Column="27" TopLine="315"/>
       </Position17>
       <Position18>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="339" Column="27" TopLine="315"/>
+        <Caret Line="351" Column="22" TopLine="319"/>
       </Position18>
       <Position19>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="351" Column="22" TopLine="319"/>
+        <Caret Line="1" Column="14" TopLine="1"/>
       </Position19>
       <Position20>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="1" Column="14" TopLine="1"/>
+        <Caret Line="189" Column="7" TopLine="159"/>
       </Position20>
       <Position21>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="189" Column="7" TopLine="159"/>
+        <Caret Line="240" Column="9" TopLine="210"/>
       </Position21>
       <Position22>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="240" Column="9" TopLine="210"/>
+        <Caret Line="261" Column="27" TopLine="231"/>
       </Position22>
       <Position23>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="261" Column="27" TopLine="231"/>
+        <Caret Line="262" Column="27" TopLine="232"/>
       </Position23>
       <Position24>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="262" Column="27" TopLine="232"/>
+        <Caret Line="335" Column="27" TopLine="326"/>
       </Position24>
       <Position25>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="335" Column="27" TopLine="326"/>
+        <Caret Line="254" Column="106" TopLine="236"/>
       </Position25>
       <Position26>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="254" Column="106" TopLine="236"/>
+        <Caret Line="182" Column="52" TopLine="160"/>
       </Position26>
       <Position27>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="182" Column="52" TopLine="160"/>
+        <Caret Line="172" Column="91" TopLine="162"/>
       </Position27>
       <Position28>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="172" Column="91" TopLine="162"/>
+        <Caret Line="98" Column="29" TopLine="85"/>
       </Position28>
       <Position29>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="98" Column="29" TopLine="85"/>
+        <Caret Line="174" Column="30" TopLine="150"/>
       </Position29>
       <Position30>
         <Filename Value="Sterretijdklok.lpr"/>
-        <Caret Line="174" Column="30" TopLine="150"/>
+        <Caret Line="189" Column="90" TopLine="189"/>
       </Position30>
     </JumpHistory>
   </ProjectOptions>

Sterretijdklok.lpr

@@ -150,8 +150,6 @@ Const
   StartJaar = 2005;
   Periode   =  365.24238;
 
-  Sterdag_Factor = Period / (Periode +1);  { relatieve lengte van een sterredag t.o.v. zonnedag }
-
 Begin
   { startjaar = 2005 20 maart 12:33:19 MET periode = 365,24238 Dagen }
 
@@ -163,6 +161,9 @@ Function AstronomischeDatum : Integer;
 Var
   Jaar,Maand,Dag    : Word;
   Ljaar,Lmaand,Ldag : Word;
+  Sterdag_Factor    : Real;
+Const
+  Periode   =  365.24238;
 Begin
   DecodeDate(Date,Jaar,Maand,Dag);
   DecodeDate(Lentepunt(Jaar),Ljaar,LMaand,Ldag);
@@ -172,7 +173,8 @@ Begin
   IF Lentepunt(Jaar) >  Date Then Astronomischedatum := DaysBetween (Date,Lentepunt(Jaar-1))
                              Else AstronomischeDatum := DaysBetween (Date,Lentepunt(Jaar));
 
-AstronomischeDatum := TRUNC(AstronomischeDatum / Sterdag_Factor);
+  Sterdag_Factor := Periode / (Periode +1);  { relatieve lengte van een sterredag t.o.v. zonnedag }
+  AstronomischeDatum := TRUNC(AstronomischeDatum / Sterdag_Factor);
 
 {  IF Astronomischedatum > 365 Then Astronomischedatum := Astronomischedatum - 365;    }