From 3d3e75fa15be7088dd456c001a411ff5953c85b1 Mon Sep 17 00:00:00 2001
From: Erich Eckner <git@eckner.net>
Date: Thu, 24 May 2018 09:53:16 +0200
Subject: ermittleMittelwert neu

---
 epostunit.pas | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)

(limited to 'epostunit.pas')

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;
 
-- 
cgit v1.2.3-70-g09d2