diff options
| -rw-r--r-- | epost.lps | 128 | ||||
| -rw-r--r-- | typenunit.pas | 32 |
2 files changed, 75 insertions, 85 deletions
@@ -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 *************************************************************** |