epost.lpr: kann jetzt auch einzelne Werte (per exprToFloat) berechnen und abspeichern

1 files changed, 22 insertions, 1 deletions

diff --git a/epost.lpr b/epost.lpr
index 1500f17..aafa087 100644
--- a/epost.lpr
+++ b/epost.lpr
@@ -15,7 +15,7 @@ uses
 var
   maxThreads,i,j,k:               longint;
   inf,bekannteBefehle:            tMyStringList;
-  s:                              string;
+  s,name:                         string;
   b1,b2,syntaxTest,parallelLesen: boolean;
   wertes:                         tWerteArray;
   konturen:                       tKonturenArray;
@@ -131,6 +131,27 @@ begin
         gibAus('exprtofloat-Test: '+s+'='+floatToStr(wertes[length(wertes)-1].exprToFloat(syntaxTest,s)),3);
         continue;
       end;
+      if istDasBefehl('Wert',s,bekannteBefehle,true) then begin
+        name:=erstesArgument(s);
+        if not startetMit('aus ',s) then begin
+          gibAus('Fehlende Parameter, erwartet: ''Wert $Name aus $Werten berechnen durch $Formel''',3);
+          aufraeumen;
+          halt(1);
+        end;
+        i:=findeWerte(erstesArgument(s),inf,@wertes,@konturen,true);
+        if i<0 then begin
+          gibAus('Fehlende Parameter, erwartet: ''Wert $Name aus $Werten berechnen durch $Formel''',3);
+          aufraeumen;
+          halt(1);
+        end;
+        if not startetMit('berechnen durch ',s) then begin
+          gibAus('Fehlende Parameter, erwartet: ''Wert $Name aus $Werten berechnen durch $Formel''',3);
+          aufraeumen;
+          halt(1);
+        end;
+        globaleWerte.add(name,wertes[i].exprToFloat(syntaxTest,s));
+        continue;
+      end;
       if istDasBefehl('dupliziere',s,bekannteBefehle,true) then begin
         i:=findeWerte(erstesArgument(s),nil,@wertes,@konturen,false);
         if i<0 then begin