Umstrukturierung von tKnownValueArray zu tKnownValues

2 files changed, 75 insertions, 85 deletions

diff --git a/epost.lps b/epost.lps
index aa0ab3f..af390e2 100644
--- a/epost.lps
+++ b/epost.lps
@@ -9,7 +9,6 @@
         <IsPartOfProject Value="True"/>
         <TopLine Value="46"/>
         <CursorPos X="68" Y="65"/>
-        <FoldState Value=" T0j8S8612212111114[65]E[44]J[O7]CB"/>
         <UsageCount Value="202"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -23,10 +22,10 @@
       <Unit2>
         <Filename Value="epostunit.pas"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="129"/>
         <CursorPos X="69" Y="153"/>
-        <FoldState Value=" T3of0C6 piXjG06A]9fjQ068 pjRk80}m011 pmbrf0;9[B4k1oW0{c1]X5lg0}04]Abng0{;11[M4Ipc0{5[A4NlR0~w0[M5Zr60{K5]A2lT0jB]9SlH0F2 pidjJ0c2]IBkE0BB]Icjc0E[I4Uk9086 pkRl60W3]INkM0B918]cbnE0G4 pnaoL0L[T46jZ052 piej80K T0j$E0{1d"/>
+        <FoldState Value=" T3of0C6 piXjG06A]9fjQ068 pjRk80}m011 T0j$E0{1R"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -40,9 +39,8 @@
       <Unit4>
         <Filename Value="werteunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <EditorIndex Value="3"/>
-        <TopLine Value="789"/>
+        <TopLine Value="785"/>
         <CursorPos X="8" Y="1210"/>
         <FoldState Value=" T3iT059 pjBja0T2 pm2mb0A]9oLob036]RUk40R5]97k30*]RiekW0{22%"/>
         <UsageCount Value="200"/>
@@ -52,8 +50,8 @@
         <Filename Value="typenunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="4"/>
-        <TopLine Value="879"/>
-        <CursorPos X="25" Y="919"/>
+        <TopLine Value="882"/>
+        <CursorPos X="19" Y="902"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit5>
@@ -67,7 +65,7 @@
       <Unit7>
         <Filename Value="../units/mystringlistunit.pas"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="310"/>
+        <TopLine Value="25"/>
         <UsageCount Value="12"/>
         <Loaded Value="True"/>
       </Unit7>
@@ -87,131 +85,133 @@
       <Unit10>
         <Filename Value="../units/matheunit.pas"/>
         <EditorIndex Value="5"/>
-        <TopLine Value="368"/>
-        <CursorPos X="29" Y="388"/>
+        <TopLine Value="149"/>
+        <CursorPos X="32" Y="312"/>
+        <FoldState Value=" T3i604B pjGk30E3]90jM091m"/>
         <UsageCount Value="11"/>
         <Loaded Value="True"/>
       </Unit10>
     </Units>
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="209" TopLine="179"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="91" TopLine="71"/>
       </Position1>
       <Position2>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="904" TopLine="882"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="4587" Column="13" TopLine="1618"/>
       </Position2>
       <Position3>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="910" Column="46" TopLine="885"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="279" Column="55" TopLine="261"/>
       </Position3>
       <Position4>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="201" Column="16" TopLine="181"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="84" Column="15" TopLine="54"/>
       </Position4>
       <Position5>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="870" Column="42" TopLine="837"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="319" TopLine="303"/>
       </Position5>
       <Position6>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="871" Column="24" TopLine="850"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="43" Column="105" TopLine="20"/>
       </Position6>
       <Position7>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="876" Column="23" TopLine="850"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="343" Column="46" TopLine="316"/>
       </Position7>
       <Position8>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="903" Column="24" TopLine="870"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="374" Column="50" TopLine="353"/>
       </Position8>
       <Position9>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="904" Column="14" TopLine="871"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="393" Column="74" TopLine="373"/>
       </Position9>
       <Position10>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="905" Column="14" TopLine="872"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="404" Column="67" TopLine="383"/>
       </Position10>
       <Position11>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="906" Column="14" TopLine="873"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="418" Column="67" TopLine="397"/>
       </Position11>
       <Position12>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="907" Column="14" TopLine="874"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="427" Column="62" TopLine="406"/>
       </Position12>
       <Position13>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="908" Column="14" TopLine="875"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="435" Column="35" TopLine="417"/>
       </Position13>
       <Position14>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="909" Column="14" TopLine="876"/>
+        <Caret Line="919" Column="25" TopLine="879"/>
       </Position14>
       <Position15>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="910" Column="14" TopLine="877"/>
+        <Caret Line="870" Column="32" TopLine="850"/>
       </Position15>
       <Position16>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="911" Column="14" TopLine="878"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="438" Column="3" TopLine="416"/>
       </Position16>
       <Position17>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="912" Column="14" TopLine="879"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="17" Column="15"/>
       </Position17>
       <Position18>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="913" Column="14" TopLine="880"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="43" Column="63" TopLine="23"/>
       </Position18>
       <Position19>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="914" Column="14" TopLine="881"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="49" Column="25" TopLine="29"/>
       </Position19>
       <Position20>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="915" Column="14" TopLine="882"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="55" Column="24" TopLine="35"/>
       </Position20>
       <Position21>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="916" Column="14" TopLine="883"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="61" Column="22" TopLine="41"/>
       </Position21>
       <Position22>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="917" Column="14" TopLine="884"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="73" Column="23" TopLine="53"/>
       </Position22>
       <Position23>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="918" Column="14" TopLine="885"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="86" Column="22" TopLine="66"/>
       </Position23>
       <Position24>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="3226" Column="65" TopLine="3206"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="870" Column="28" TopLine="855"/>
       </Position24>
       <Position25>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="904" Column="45" TopLine="880"/>
+        <Caret Line="201" Column="62" TopLine="181"/>
       </Position25>
       <Position26>
         <Filename Value="typenunit.pas"/>
+        <Caret Line="875" Column="18" TopLine="855"/>
       </Position26>
       <Position27>
         <Filename Value="typenunit.pas"/>
-        <Caret Line="16" Column="14"/>
+        <Caret Line="910" TopLine="882"/>
       </Position27>
       <Position28>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="208" Column="5" TopLine="185"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="45" TopLine="10"/>
       </Position28>
       <Position29>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="91" TopLine="71"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="458" Column="21" TopLine="418"/>
       </Position29>
       <Position30>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="4587" Column="13" TopLine="1618"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="94" Column="20" TopLine="65"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>
diff --git a/typenunit.pas b/typenunit.pas
index 6e7dab0..a600498 100644
--- a/typenunit.pas
+++ b/typenunit.pas
@@ -198,7 +198,7 @@ type
     maxW,minW,np,beta:                           extended;
     tsiz,xsteps,tsiz_,xsteps_:                   longint;
     transformationen:                            tTransformationen;
-    knownValues:                                 tKnownValueArray;
+    knownValues:                                 tKnownValues;
     constructor create;
     destructor destroy; override;
     function xstart: extended;
@@ -867,13 +867,12 @@ begin
   xsteps:=0;
   tsiz_:=0;
   xsteps_:=0;
-  fillchar(knownValues,sizeof(knownValues),#0);
-  setlength(knownValues,0);
+  knownValues:=tKnownValues.create;
 end;
 
 destructor tExtraInfos.destroy;
 begin
- setlength(knownValues,0);
+ knownValues.free;
  transformationen.free;
  inherited destroy;
 end;
@@ -900,23 +899,14 @@ end;
 
 procedure tExtraInfos.refreshKnownValues;
 begin
-  setlength(knownValues,8);
-  knownValues[0].name:='np';
-  knownValues[0].value:=np;
-  knownValues[1].name:='maxw';
-  knownValues[1].value:=maxW;
-  knownValues[2].name:='minw';
-  knownValues[2].value:=minW;
-  knownValues[3].name:='beta';
-  knownValues[3].value:=beta;
-  knownValues[4].name:='xstart';
-  knownValues[4].value:=xstart;
-  knownValues[5].name:='xstop';
-  knownValues[5].value:=xstop;
-  knownValues[6].name:='tstart';
-  knownValues[6].value:=tstart;
-  knownValues[7].name:='tstop';
-  knownValues[7].value:=tstop;
+  knownValues.add(knownValue('np',np));
+  knownValues.add(knownValue('maxw',maxW));
+  knownValues.add(knownValue('minw',minW));
+  knownValues.add(knownValue('beta',beta));
+  knownValues.add(knownValue('xstart',xstart));
+  knownValues.add(knownValue('xstop',xstop));
+  knownValues.add(knownValue('tstart',tstart));
+  knownValues.add(knownValue('tstop',tstop));
 end;
 
 // tFontRenderer ***************************************************************