diff options
author | Erich Eckner <git@eckner.net> | 2019-10-21 08:49:02 +0200 |
---|---|---|
committer | Erich Eckner <git@eckner.net> | 2019-10-21 08:49:02 +0200 |
commit | 00c049d6af218baeedbb4d4c768a31e8ba60adfc (patch) | |
tree | 245956122978098c62be7a2df4fcd26faf4bea29 | |
parent | 66000f787560c38678cb24c96543560b58d6cebb (diff) | |
download | epost-00c049d6af218baeedbb4d4c768a31e8ba60adfc.tar.xz |
werteunit.pas: tLLWerte.nullenEinfuegen() korrigiert
-rw-r--r-- | epost.lps | 80 | ||||
-rw-r--r-- | werteunit.pas | 4 |
2 files changed, 42 insertions, 42 deletions
@@ -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 |