geht noch nicht :-/

1 files changed, 19 insertions, 15 deletions

diff --git a/epost.lpr b/epost.lpr
index 2af9cc7..7f8d26f 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -13,13 +13,13 @@ uses
   sysutils, epostunit, mystringlistunit, lowlevelunit;
 
 var
-  maxThreads,i,j,k:           longint;
-  inf,bekannteBefehle:        tMyStringList;
-  s:                          string;
-  b,syntaxTest,parallelLesen: boolean;
-  wertes:                     tWerteArray;
-  konturen:                   tKonturenArray;
-  Warnstufe:                  tWarnStufe;
+  maxThreads,i,j,k:               longint;
+  inf,bekannteBefehle:            tMyStringList;
+  s:                              string;
+  b1,b2,syntaxTest,parallelLesen: boolean;
+  wertes:                         tWerteArray;
+  konturen:                       tKonturenArray;
+  Warnstufe:                      tWarnStufe;
 
 procedure werteAufraeumen;
 var
@@ -151,7 +151,7 @@ begin
         continue;
       end;
       if istDasBefehl('erzeuge Dummy-Werte',s,bekannteBefehle,true) then begin
-        b:=startetMit('gefüllt',s);
+        b1:=startetMit('gefüllt',s);
         i:=findeWerte(s,inf,@wertes,@konturen,true);
         if i<0 then begin
           aufraeumen;
@@ -160,7 +160,7 @@ begin
         wertes[i].free;
         wertes[i]:=tWerte.create(@konturen,@wertes);
         wertes[i].bezeichner:=s;
-        if b then
+        if b1 then
           wertes[i].fuelleMitDummys(syntaxTest);
         continue;
       end;
@@ -176,13 +176,13 @@ begin
         halt(1);
       end;
       if istDasBefehl('Daten einlesen',s,bekannteBefehle,true) then begin
-        b:=not startetMit('(ohne Ausgaben)',s);
+        b1:=not startetMit('(ohne Ausgaben)',s);
         i:=findeWerte(s,inf,@wertes,@konturen,true);
         if i<0 then begin
           aufraeumen;
           halt(1);
         end;
-        if wertes[i].ladeDateien(syntaxTest,inf,parallelLesen,b) then
+        if wertes[i].ladeDateien(syntaxTest,inf,parallelLesen,b1) then
           continue;
         aufraeumen;
         halt(1);
@@ -465,23 +465,27 @@ begin
         continue;
       end;
       if istDasBefehl('maximale und minimale Dichten bestimmen',s,bekannteBefehle,true) then begin
-        b:=startetMit('(symmetrisch) ',s);
+        b1:=startetMit('(symmetrisch) ',s);
+        b2:=endetMit(':',s);
         i:=findeWerte(s,nil,@wertes,@konturen,false);
         if i<0 then begin
           aufraeumen;
           halt(1);
         end;
-        wertes[i].ermittleMinMaxDichten(syntaxTest,maxThreads,b);
+        if b2 then
+          wertes[i].ermittleMinMaxDichten(syntaxTest,inf,maxThreads,b1)
+        else
+          wertes[i].ermittleMinMaxDichten(syntaxTest,maxThreads,b1);
         continue;
       end;
       if istDasBefehl('maximale und minimale Dichten angleichen',s,bekannteBefehle,true) then begin
-        b:=startetMit('(symmetrisch) ',s);
+        b1:=startetMit('(symmetrisch) ',s);
         i:=findeWerte(s,nil,@wertes,@konturen,false);
         if i<0 then begin
           aufraeumen;
           halt(1);
         end;
-        wertes[i].gleicheMinMaxDichtenAn(syntaxTest,inf,b);
+        wertes[i].gleicheMinMaxDichtenAn(syntaxTest,inf,b1);
         continue;
       end;
       if istDasBefehl('lineares Bild',s,bekannteBefehle,true) then begin