Bug beim Einlesen von double-Dateien entfernt

2 files changed, 55 insertions, 43 deletions

diff --git a/epost.lps b/epost.lps
index 48a65a9..84d14af 100644
--- a/epost.lps
+++ b/epost.lps
@@ -7,9 +7,8 @@
       <Unit0>
         <Filename Value="epost.lpr"/>
         <IsPartOfProject Value="True"/>
-        <TopLine Value="125"/>
-        <CursorPos Y="214"/>
-        <FoldState Value=" T0iRVB011171221211]B9[65]E[44]J[O7]CO"/>
+        <TopLine Value="130"/>
+        <CursorPos X="22" Y="157"/>
         <UsageCount Value="202"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -25,9 +24,9 @@
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
         <EditorIndex Value="1"/>
-        <TopLine Value="982"/>
-        <CursorPos X="98" Y="999"/>
-        <FoldState Value=" T3p70D5 pigjO078]9XjF0G7[95M0H4D p0zB0{n1 pjXmc0{A0a]Kinc0E2 T0kie0{1C"/>
+        <TopLine Value="1390"/>
+        <CursorPos X="8" Y="1888"/>
+        <FoldState Value=" T3p70D5 pigjO078]9XjF0G7[95M0H411 pn4uG0;9[B4k1of0{c]Aj5lg0{4]Al0n3033]JYk20{*1]fT0kie0{1V"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -42,6 +41,7 @@
         <Filename Value="werteunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="2"/>
+        <TopLine Value="80"/>
         <CursorPos X="24" Y="80"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
@@ -65,8 +65,8 @@
       <Unit7>
         <Filename Value="../units/mystringlistunit.pas"/>
         <EditorIndex Value="-1"/>
-        <TopLine Value="271"/>
-        <CursorPos Y="310"/>
+        <TopLine Value="370"/>
+        <CursorPos X="32" Y="385"/>
         <UsageCount Value="13"/>
       </Unit7>
       <Unit8>
@@ -88,115 +88,127 @@
         <Loaded Value="True"/>
       </Unit10>
     </Units>
-    <JumpHistory Count="27" HistoryIndex="26">
+    <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="4484" Column="15" TopLine="4465"/>
+        <Caret Line="4645" Column="14" TopLine="4622"/>
       </Position1>
       <Position2>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="4645" Column="14" TopLine="4622"/>
+        <Caret Line="4729" Column="14" TopLine="4705"/>
       </Position2>
       <Position3>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="4729" Column="14" TopLine="4705"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="1240" Column="14" TopLine="1036"/>
       </Position3>
       <Position4>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="1240" Column="14" TopLine="1036"/>
+        <Caret Line="332" TopLine="313"/>
       </Position4>
       <Position5>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="332" TopLine="313"/>
+        <Caret Line="345" Column="69" TopLine="321"/>
       </Position5>
       <Position6>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="345" Column="69" TopLine="321"/>
+        <Caret Line="413" Column="12" TopLine="393"/>
       </Position6>
       <Position7>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="413" Column="12" TopLine="393"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="4763" Column="19" TopLine="4732"/>
       </Position7>
       <Position8>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="4763" Column="19" TopLine="4732"/>
+        <Caret Line="384" Column="4" TopLine="365"/>
       </Position8>
       <Position9>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="384" Column="4" TopLine="365"/>
+        <Caret Line="4763" Column="17" TopLine="4731"/>
       </Position9>
       <Position10>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="4763" Column="17" TopLine="4731"/>
+        <Caret Line="978" Column="29" TopLine="965"/>
       </Position10>
       <Position11>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="978" Column="29" TopLine="965"/>
+        <Caret Line="4691" Column="32" TopLine="4653"/>
       </Position11>
       <Position12>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="4691" Column="32" TopLine="4653"/>
-      </Position12>
-      <Position13>
         <Filename Value="werteunit.pas"/>
         <Caret Line="514" Column="45" TopLine="496"/>
+      </Position12>
+      <Position13>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="125" Column="30" TopLine="118"/>
       </Position13>
       <Position14>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="125" Column="30" TopLine="118"/>
+        <Caret Line="1877" Column="12" TopLine="1846"/>
       </Position14>
       <Position15>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="1877" Column="12" TopLine="1846"/>
+        <Caret Line="1799" Column="37" TopLine="1779"/>
       </Position15>
       <Position16>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="1799" Column="37" TopLine="1779"/>
+        <Caret Line="192" Column="18" TopLine="173"/>
       </Position16>
       <Position17>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="192" Column="18" TopLine="173"/>
+        <Caret Line="1713" Column="52" TopLine="1680"/>
       </Position17>
       <Position18>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="1713" Column="52" TopLine="1680"/>
+        <Caret Line="1789" Column="40" TopLine="1757"/>
       </Position18>
       <Position19>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="1789" Column="40" TopLine="1757"/>
+        <Caret Line="3832" Column="24" TopLine="3797"/>
       </Position19>
       <Position20>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="3832" Column="24" TopLine="3797"/>
+        <Caret Line="3674" TopLine="3664"/>
       </Position20>
       <Position21>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="3674" TopLine="3664"/>
+        <Caret Line="3867" TopLine="3828"/>
       </Position21>
       <Position22>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="3867" TopLine="3828"/>
+        <Caret Line="3884" Column="10" TopLine="3863"/>
       </Position22>
       <Position23>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="3884" Column="10" TopLine="3863"/>
+        <Caret Line="1826" Column="18" TopLine="1819"/>
       </Position23>
       <Position24>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="1826" Column="18" TopLine="1819"/>
+        <Caret Line="1003" Column="69" TopLine="984"/>
       </Position24>
       <Position25>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="1003" Column="69" TopLine="984"/>
-      </Position25>
-      <Position26>
         <Filename Value="../units/matheunit.pas"/>
         <Caret Line="312" Column="32" TopLine="272"/>
+      </Position25>
+      <Position26>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="1004" Column="26" TopLine="982"/>
       </Position26>
       <Position27>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="1004" Column="26" TopLine="982"/>
+        <Caret Line="2820" Column="40" TopLine="2785"/>
       </Position27>
+      <Position28>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="80" TopLine="80"/>
+      </Position28>
+      <Position29>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="1432" Column="14" TopLine="1405"/>
+      </Position29>
+      <Position30>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="77" Column="43" TopLine="68"/>
+      </Position30>
     </JumpHistory>
   </ProjectSession>
 </CONFIG>
diff --git a/epostunit.pas b/epostunit.pas
index 69f213f..c040e51 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -1168,7 +1168,7 @@ begin
            tmpe:=tmps;
          end;
          gDouble: begin
-           blockread(f,tmpd,sizeof(single));
+           blockread(f,tmpd,sizeof(double));
            tmpe:=tmpd;
          end;
          gExtended: blockread(f,tmpe,sizeof(extended));