Option -C neu um alle Logs zu löschen (vorher war epost nicht parallelisierbar, da immer alle Logs am anfang gelöscht wurden)

2 files changed, 74 insertions, 77 deletions

diff --git a/epost.lpr b/epost.lpr
index df0d454..031095f 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -44,14 +44,16 @@ end;
 
 begin
   gibAus('Kopmiliert an '+{$I %DATE%}+' '+{$I %TIME%},1);
-  cleanupLogs;
   if (not (paramcount in [1,2])) or
-    ((paramcount=2) and (paramstr(2)<>'-L')) or
+    ((paramcount=2) and (paramstr(2)<>'-L') and (paramstr(2)<>'-C')) or
     not fileExists(paramstr(1)) then begin
     gibAus('Verwendung: '+paramstr(0)+' input.epost',3);
+    gibAus('oder:       '+paramstr(0)+' input.epost -C',3);
     gibAus('oder:       '+paramstr(0)+' input.epost -L',3);
     halt(1);
   end;
+  if (paramcount=2) and (paramstr(2)='-C') then
+    cleanupLogs;
   maxThreads:=1;
   Warnstufe:=wsStreng;
   parallelLesen:=false;
@@ -696,6 +698,7 @@ begin
     werteAufraeumen;
   end;
   aufraeumen;
-  if not behalteLogs then cleanupLogs;
+  if not behalteLogs then
+    cleanupLog(threadID);
 end.
 
diff --git a/epost.lps b/epost.lps
index 018c65d..abd0c68 100644
--- a/epost.lps
+++ b/epost.lps
@@ -7,8 +7,9 @@
       <Unit0>
         <Filename Value="epost.lpr"/>
         <IsPartOfProject Value="True"/>
-        <TopLine Value="351"/>
-        <CursorPos X="22" Y="381"/>
+        <IsVisibleTab Value="True"/>
+        <TopLine Value="27"/>
+        <CursorPos X="16" Y="56"/>
         <UsageCount Value="202"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -22,17 +23,16 @@
       <Unit2>
         <Filename Value="epostunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <IsVisibleTab Value="True"/>
-        <EditorIndex Value="1"/>
-        <TopLine Value="4040"/>
-        <CursorPos X="24" Y="4019"/>
+        <EditorIndex Value="2"/>
+        <TopLine Value="486"/>
+        <CursorPos X="33" Y="505"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
       </Unit2>
       <Unit3>
         <Filename Value="werteunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="3"/>
+        <EditorIndex Value="4"/>
         <TopLine Value="1487"/>
         <CursorPos X="74" Y="1513"/>
         <UsageCount Value="200"/>
@@ -41,7 +41,7 @@
       <Unit4>
         <Filename Value="typenunit.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="7"/>
+        <EditorIndex Value="8"/>
         <TopLine Value="3640"/>
         <CursorPos X="47" Y="3670"/>
         <UsageCount Value="200"/>
@@ -66,7 +66,7 @@
       <Unit7>
         <Filename Value="gauszFit.inc"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="6"/>
+        <EditorIndex Value="7"/>
         <CursorPos X="9" Y="17"/>
         <UsageCount Value="201"/>
         <Loaded Value="True"/>
@@ -82,7 +82,7 @@
       <Unit9>
         <Filename Value="../units/optimierung.pas"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="4"/>
+        <EditorIndex Value="5"/>
         <TopLine Value="86"/>
         <CursorPos X="26" Y="115"/>
         <UsageCount Value="36"/>
@@ -91,7 +91,7 @@
       <Unit10>
         <Filename Value="../units/optimierung.inc"/>
         <IsPartOfProject Value="True"/>
-        <EditorIndex Value="5"/>
+        <EditorIndex Value="6"/>
         <CursorPos X="3" Y="2"/>
         <UsageCount Value="32"/>
         <Loaded Value="True"/>
@@ -111,14 +111,15 @@
       </Unit12>
       <Unit13>
         <Filename Value="../units/lowlevelunit.pas"/>
-        <EditorIndex Value="-1"/>
-        <TopLine Value="19"/>
-        <CursorPos Y="50"/>
+        <EditorIndex Value="1"/>
+        <TopLine Value="838"/>
+        <CursorPos X="21" Y="873"/>
         <UsageCount Value="97"/>
+        <Loaded Value="True"/>
       </Unit13>
       <Unit14>
         <Filename Value="../units/matheunit.pas"/>
-        <EditorIndex Value="2"/>
+        <EditorIndex Value="3"/>
         <TopLine Value="1130"/>
         <CursorPos X="60" Y="1147"/>
         <UsageCount Value="99"/>
@@ -207,127 +208,120 @@
         <DefaultSyntaxHighlighter Value="XML"/>
       </Unit26>
     </Units>
-    <JumpHistory Count="30" HistoryIndex="29">
+    <JumpHistory Count="29" HistoryIndex="28">
       <Position1>
         <Filename Value="werteunit.pas"/>
-        <Caret Line="1472" Column="14" TopLine="1457"/>
+        <Caret Line="1513" Column="86" TopLine="1488"/>
       </Position1>
       <Position2>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="1480" Column="31" TopLine="1463"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="4065" Column="11" TopLine="4036"/>
       </Position2>
       <Position3>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="1483" Column="29" TopLine="1464"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="4040" Column="11" TopLine="4038"/>
       </Position3>
       <Position4>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="1470" Column="97" TopLine="1458"/>
+        <Filename Value="../units/matheunit.pas"/>
+        <Caret Line="70" Column="11" TopLine="52"/>
       </Position4>
       <Position5>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="4093" Column="82" TopLine="4067"/>
+        <Caret Line="4040" Column="11" TopLine="4038"/>
       </Position5>
       <Position6>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="4115" Column="82" TopLine="4083"/>
+        <Caret Line="4102" Column="27" TopLine="4074"/>
       </Position6>
       <Position7>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="1491" Column="33" TopLine="1466"/>
+        <Filename Value="typenunit.pas"/>
+        <Caret Line="20" TopLine="4"/>
       </Position7>
       <Position8>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="81" Column="16" TopLine="56"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="4124" Column="27" TopLine="4096"/>
       </Position8>
       <Position9>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="1507" Column="69" TopLine="1476"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="2349" Column="21" TopLine="2292"/>
       </Position9>
       <Position10>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="82" Column="86" TopLine="66"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="4089" Column="24" TopLine="4078"/>
       </Position10>
       <Position11>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="1513" Column="93" TopLine="1481"/>
+        <Filename Value="epostunit.pas"/>
+        <Caret Line="5817" Column="10" TopLine="5789"/>
       </Position11>
       <Position12>
         <Filename Value="epostunit.pas"/>
-        <Caret Line="3947" Column="13" TopLine="3934"/>
+        <Caret Line="169" Column="26" TopLine="153"/>
       </Position12>
       <Position13>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="3951" Column="17" TopLine="3924"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="360" Column="69" TopLine="348"/>
       </Position13>
       <Position14>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="4046" Column="10" TopLine="4024"/>
+        <Filename Value="epost.lpr"/>
       </Position14>
       <Position15>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="4049" Column="18" TopLine="4031"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret TopLine="22"/>
       </Position15>
       <Position16>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="4082" Column="17" TopLine="4065"/>
+        <Filename Value="epost.lpr"/>
       </Position16>
       <Position17>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="1499" Column="96" TopLine="1482"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="698" Column="6" TopLine="666"/>
       </Position17>
       <Position18>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="82" Column="25" TopLine="65"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="38" Column="21" TopLine="35"/>
       </Position18>
       <Position19>
-        <Filename Value="werteunit.pas"/>
-        <Caret Line="1513" Column="86" TopLine="1488"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="112" Column="17" TopLine="94"/>
       </Position19>
       <Position20>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="4065" Column="11" TopLine="4036"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="720" Column="66" TopLine="701"/>
       </Position20>
       <Position21>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="4040" Column="11" TopLine="4038"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="860" Column="15" TopLine="832"/>
       </Position21>
       <Position22>
-        <Filename Value="../units/matheunit.pas"/>
-        <Caret Line="70" Column="11" TopLine="52"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="124" Column="22" TopLine="106"/>
       </Position22>
       <Position23>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="4040" Column="11" TopLine="4038"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="860" Column="22" TopLine="831"/>
       </Position23>
       <Position24>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="4102" Column="27" TopLine="4074"/>
+        <Filename Value="../units/lowlevelunit.pas"/>
+        <Caret Line="125" Column="17" TopLine="106"/>
       </Position24>
       <Position25>
-        <Filename Value="typenunit.pas"/>
-        <Caret Line="20" TopLine="4"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="47" Column="22" TopLine="41"/>
       </Position25>
       <Position26>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="4124" Column="27" TopLine="4096"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="53" Column="59" TopLine="31"/>
       </Position26>
       <Position27>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="2349" Column="21" TopLine="2292"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="57" TopLine="28"/>
       </Position27>
       <Position28>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="4089" Column="24" TopLine="4078"/>
+        <Filename Value="epost.lpr"/>
+        <Caret Line="702" Column="15" TopLine="669"/>
       </Position28>
       <Position29>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="5817" Column="10" TopLine="5789"/>
+        <Filename Value="epost.lpr"/>
       </Position29>
-      <Position30>
-        <Filename Value="epostunit.pas"/>
-        <Caret Line="169" Column="26" TopLine="153"/>
-      </Position30>
     </JumpHistory>
   </ProjectSession>
   <Debugging>