ermittleMittelwert neu

1 files changed, 40 insertions, 0 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 92aa994..e5e1db7 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -484,6 +484,7 @@ function externerBefehl(sT: boolean; s: string): boolean;
 procedure warteAufExterneBefehle;
 procedure beendeExterneBefehleWennFertig;
 function ermittleAnstieg(sT: boolean; s: string): boolean;
+function ermittleMittelwert(sT: boolean; s: string): boolean;
 
 var
   allePaletten:   tPalettenArray;
@@ -9267,6 +9268,45 @@ begin
   result:=true;
 end;
 
+function ermittleMittelwert(sT: boolean; s: string): boolean;
+var
+  i,j:        longint;
+  name,datei: string;
+  wert:       extended;
+begin
+  result:=false;
+  name:=erstesArgument(s);
+  if not startetMit('aus ',s) then begin
+    gibAus('Syntaxfehler, erwarte: ''ermittle Mittelwert $name aus $datei [Wertespalte [Gewichtespalte]]''.',3);
+    exit;
+  end;
+  datei:=erstesArgument(s);
+  if not fileExists(datei) then begin
+    gibAus('Datei '''+datei+''' existiert nicht um Werte für Mittelwertermittlung zu lesen!',3);
+    exit;
+  end;
+  try
+    if s='' then
+      i:=0
+    else
+      i:=strToInt(erstesArgument(s));
+    if s='' then
+      j:=-1
+    else
+      j:=strToInt(s);
+  except
+    gibAus('Syntaxfehler, erwarte: ''ermittle Mittelwert $name aus $datei [Wertespalte [Gewichtespalte]]''.',3);
+    exit;
+  end;
+  if sT then begin
+    // Wir brauchen einen sinnvollen Wert zum Syntaxtest, aber dann müssen wir
+    // ihn später nicht noch einmal berechnen.
+    wert:=matheunit.ermittleMittelwert(shellExpand(datei),i,j);
+    globaleWerte.add(name,wert);
+  end;
+  result:=true;
+end;
+
 var
   i: longint;