epostunit.pas: "Daten einlesen" kennt nun auch "Parameter ausgeben"

1 files changed, 15 insertions, 3 deletions

diff --git a/epostunit.pas b/epostunit.pas
index c689369..eae8572 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -94,7 +94,7 @@ type
   private
     leseThread: tLeseThread;
     function findeAlleDateien(nam: string; var dat: tGenerischeInputDateiInfoArray; vorlage: tGenerischeInputDateiInfo): boolean;
-    function ermittleExterneInputParameter(f: tMyStringList; out dateien: tGenerischeInputDateiInfoArray): boolean;
+    function ermittleExterneInputParameter(f: tMyStringList; out dateien: tGenerischeInputDateiInfoArray; out dump: boolean): boolean;
     function ermittleInterneInputParameter(var dateien: tGenerischeInputDateiInfoArray): boolean;
     procedure initVerzerrung(quelle: tWerte; xMin,xMax,tMin,tMax,x0Abs,t0Abs,mT: longint; oberst: boolean; epsilon: extended; verzerrung: tTransformation; verzerrAnzahl: longint; zPs: tIntPointArray; zGs: tExtPointArray; zAs: tExtendedArray; warn: tWarnStufe);
     function rTransformationen: tTransformation;
@@ -1154,7 +1154,7 @@ begin
   result:=true;
 end;
 
-function tWerte.ermittleExterneInputParameter(f: tMyStringList; out dateien: tGenerischeInputDateiInfoArray): boolean;
+function tWerte.ermittleExterneInputParameter(f: tMyStringList; out dateien: tGenerischeInputDateiInfoArray; out dump: boolean): boolean;
 // Parameter ermitteln, die in der Config-Datei stehen
 var
   s,t:             string;
@@ -1194,6 +1194,7 @@ begin
   sWerte.params.transformationen.xStop:=0;
   bekannteBefehle:=tMyStringList.create;
   mitGewalt:=false;
+  dump:=false;
   repeat
     if not f.metaReadln(s,true) then begin
       gibAus('Unerwartetes Dateiende!',3);
@@ -1236,6 +1237,10 @@ begin
       vorlagen.xStop:=exprToFloat(false,s);
       continue;
     end;
+    if istDasBefehl('Parameter ausgeben',s,bekannteBefehle,false) then begin
+      dump:=true;
+      continue;
+    end;
     if istDasBefehl('Inputparameterdatei:',s,bekannteBefehle,true) then begin
       if (not mitGewalt) and (not fileExists(extractfilepath(s)+'times-1')) and
         ((vorlagen.fehlerBehebungsKommando='') or
@@ -2418,6 +2423,8 @@ end;
 function tWerte.ladeDateien(sT: boolean; f: tMyStringList; pl,sA: boolean): boolean;
 var
   inputs: tGenerischeInputDateiInfoArray;
+  dump:   boolean;
+  i:      longint;
 
 procedure aufraeumen;
 var
@@ -2434,7 +2441,7 @@ begin
   warteAufBeendigungDesLeseThreads;
   transformationen:=tKeineTransformation.create;
   genauigkeit:=gSingle;
-  if not ermittleExterneInputParameter(f,inputs) then begin
+  if not ermittleExterneInputParameter(f,inputs,dump) then begin
     aufraeumen;
     exit;
   end;
@@ -2443,6 +2450,11 @@ begin
     exit;
   end;
   if not sT then begin
+    if dump then begin
+      gibAus(intToStr(length(inputs))+' Dateien',2);
+      for i:=0 to length(inputs)-1 do
+        gibAus(intToStr(i)+'/'+intToStr(length(inputs))+':'#13#10+inputs[i].dumpParams,2);
+    end;
     holeRAM(3*byte(sA));
     if pl then begin
       leseThread:=tLeseThread.create(self,inputs);