werteunit.pas: tLLWerte.nullenEinfuegen() korrigiert

2 files changed, 42 insertions, 42 deletions

diff --git a/epost.lps b/epost.lps
index e533602..2f747fc 100644
--- a/epost.lps
+++ b/epost.lps
@@ -7,9 +7,8 @@
       <Unit0>
         <Filename Value="epost.lpr"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
         <TopLine Value="187"/>
-        <CursorPos X="17" Y="196"/>
+        <CursorPos X="28" Y="218"/>
         <UsageCount Value="202"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -24,17 +23,18 @@
         <Filename Value="epostunit.pas"/>
         <IsPartOfProject Value="True"/>
         <EditorIndex Value="2"/>
-        <TopLine Value="6102"/>
-        <CursorPos X="50" Y="6129"/>
+        <TopLine Value="5461"/>
+        <CursorPos Y="5483"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
       <Unit3>
         <Filename Value="werteunit.pas"/>
         <IsPartOfProject Value="True"/>
+        <IsVisibleTab Value="True"/>
         <EditorIndex Value="5"/>
-        <TopLine Value="713"/>
-        <CursorPos Y="729"/>
+        <TopLine Value="2579"/>
+        <CursorPos X="19" Y="2597"/>
         <UsageCount Value="200"/>
         <Loaded Value="True"/>
       </Unit3>
@@ -210,122 +210,122 @@
     <JumpHistory Count="30" HistoryIndex="29">
       <Position1>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="735" Column="62" TopLine="724"/>
+        <Caret Line="761" Column="79" TopLine="734"/>
       </Position1>
       <Position2>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="761" Column="79" TopLine="734"/>
+        <Caret Line="757" Column="78" TopLine="740"/>
       </Position2>
       <Position3>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="757" Column="78" TopLine="740"/>
-      </Position3>
-      <Position4>
         <Filename Value="werteunit.pas"/>
         <Caret Line="36" Column="17" TopLine="19"/>
+      </Position3>
+      <Position4>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="788" TopLine="768"/>
       </Position4>
       <Position5>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="788" TopLine="768"/>
+        <Caret Line="792" Column="2" TopLine="730"/>
       </Position5>
       <Position6>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="792" Column="2" TopLine="730"/>
+        <Caret Line="6136" Column="29" TopLine="6118"/>
       </Position6>
       <Position7>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6136" Column="29" TopLine="6118"/>
+        <Caret Line="6128" TopLine="6119"/>
       </Position7>
       <Position8>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6128" TopLine="6119"/>
+        <Caret Line="6130" Column="58" TopLine="6112"/>
       </Position8>
       <Position9>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6130" Column="58" TopLine="6112"/>
+        <Caret Line="6080" Column="39" TopLine="6070"/>
       </Position9>
       <Position10>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6080" Column="39" TopLine="6070"/>
+        <Caret Line="6130" Column="71" TopLine="6112"/>
       </Position10>
       <Position11>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6130" Column="71" TopLine="6112"/>
       </Position11>
       <Position12>
         <Filename Value="epostunit.pas"/>
+        <Caret Line="6078" Column="110" TopLine="6069"/>
       </Position12>
       <Position13>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="99" TopLine="112"/>
+        <Caret Line="187" Column="123" TopLine="171"/>
       </Position13>
       <Position14>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6078" Column="110" TopLine="6069"/>
+        <Caret Line="6149" Column="20" TopLine="6133"/>
       </Position14>
       <Position15>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="187" Column="123" TopLine="171"/>
+        <Caret Line="6126" TopLine="6112"/>
       </Position15>
       <Position16>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6149" Column="20" TopLine="6133"/>
+        <Caret Line="6129" Column="24" TopLine="6112"/>
       </Position16>
       <Position17>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6126" TopLine="6112"/>
+        <Caret Line="181" Column="29" TopLine="165"/>
       </Position17>
       <Position18>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6129" Column="24" TopLine="6112"/>
+        <Caret Line="5414" Column="32" TopLine="5394"/>
       </Position18>
       <Position19>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="181" Column="29" TopLine="165"/>
+        <Caret Line="5470" TopLine="5451"/>
       </Position19>
       <Position20>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5414" Column="32" TopLine="5394"/>
+        <Caret Line="5466" TopLine="5451"/>
       </Position20>
       <Position21>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="5470" TopLine="5451"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="516" Column="4" TopLine="498"/>
       </Position21>
       <Position22>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5466" TopLine="5451"/>
+        <Caret Line="5465" Column="22" TopLine="5448"/>
       </Position22>
       <Position23>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="516" Column="4" TopLine="498"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="6131" Column="37" TopLine="6111"/>
       </Position23>
       <Position24>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5465" Column="22" TopLine="5448"/>
+        <Caret Line="181" Column="29" TopLine="165"/>
       </Position24>
       <Position25>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6131" Column="37" TopLine="6111"/>
+        <Caret Line="5414" Column="32" TopLine="5385"/>
       </Position25>
       <Position26>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="181" Column="29" TopLine="165"/>
+        <Caret Line="5479" Column="29" TopLine="5451"/>
       </Position26>
       <Position27>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="5414" Column="32" TopLine="5385"/>
+        <Caret Line="6131" Column="52" TopLine="6114"/>
       </Position27>
       <Position28>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="5479" Column="29" TopLine="5451"/>
+        <Filename Value="werteunit.pas"/>
+        <Caret Line="2601" Column="77" TopLine="2570"/>
       </Position28>
       <Position29>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="6131" Column="52" TopLine="6114"/>
+        <Caret Line="6129" Column="50" TopLine="6102"/>
       </Position29>
       <Position30>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="2601" Column="77" TopLine="2570"/>
+        <Caret Line="729" TopLine="713"/>
       </Position30>
     </JumpHistory>
     <RunParams>
diff --git a/werteunit.pas b/werteunit.pas
index 27e88ff..30a2b14 100644
--- a/werteunit.pas
+++ b/werteunit.pas
@@ -2592,9 +2592,9 @@ begin
     if 2*vX>params.xSteps then
       fehler('x-Streckung von '+intToStr(vX)+' zu '+intToStr(params.xSteps)+' Werten funktioniert nicht - ich brauche mindestens einen Faktor 2!');
     // die Nullen und das nullte Element müssen nicht verschoben werden
-    for i:=vX-1 downto 1 do
+    for i:=vY-1 downto 1 do
       move(werte[i*vX],werte[i*params.xSteps],sizeOf(wGen)*vX);
-    for i:=0 to vX-1 do
+    for i:=0 to vY-1 do
       fillChar(werte[i*params.xSteps+vX],sizeOf(wGen)*(params.xSteps-vX),0);
   end;
   if vY<>params.tSiz then