epostunit.pas: ermittleAnstieg aufgeräumt

1 files changed, 48 insertions, 41 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 9ac2885..e5e74da 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -1261,11 +1261,11 @@ begin
       continue;
     end;
     if istDasBefehl('Spurnummer:',s,bekannteBefehle,true) then begin
-      vorlagen.spurNummer:=strtoint(s);
+      vorlagen.spurNummer:=strToInt(s);
       continue;
     end;
     if istDasBefehl('Feldnummer:',s,bekannteBefehle,true) then begin
-      vorlagen.feldNummer:=strtoint(s);
+      vorlagen.feldNummer:=strToInt(s);
       continue;
     end;
     if istDasBefehl('Feld:',s,bekannteBefehle,true) then begin
@@ -1464,7 +1464,7 @@ begin
         delete(s,1,length(t)+1);
         t:=trim(t);
         if startetMit('Channels',t) and startetMit(':',t) then begin
-          dateien[i].xSteps:=strtoint(t);
+          dateien[i].xSteps:=strToInt(t);
           continue;
         end;
         if startetMit('Sample Rate',t) and startetMit(':',t) then begin
@@ -1483,7 +1483,7 @@ begin
         if startetMit('Duration',t) and startetMit(':',t) then begin
           erstesArgument(t,'=');
           t:=erstesArgument(t);
-          dateien[i].tSiz:=strtoint(t);
+          dateien[i].tSiz:=strToInt(t);
           dateien[i].groeszenFaktor:=dateien[i].groeszenFaktor*dateien[i].tSiz;
           continue;
         end;
@@ -1694,7 +1694,7 @@ begin
         exit;
       end;
       erstesArgument(t,'Pulse');
-      dateien[i].groeszenFaktor:=strtoint(erstesArgument(t,'.'));
+      dateien[i].groeszenFaktor:=strToInt(erstesArgument(t,'.'));
 
       t:=sl.grepFirst('^\s*Plasma\.Density\s*=');
       if t='' then begin
@@ -2304,7 +2304,7 @@ begin
     if s='' then continue;
     if s='Header Ende' then break;
     if startetMit('tSiz',s) then begin
-      _tSiz:=strtoint(s);
+      _tSiz:=strToInt(s);
       continue;
     end;
     if startetMit('tStart',s) then begin
@@ -2316,7 +2316,7 @@ begin
       continue;
     end;
     if startetMit('xSteps',s) then begin
-      _xSteps:=strtoint(s);
+      _xSteps:=strToInt(s);
       continue;
     end;
     if startetMit('xStart',s) then begin
@@ -3870,7 +3870,7 @@ begin
     if istDasBefehl('Ende',s,bekannteBefehle,false) then break;
     if quelle.dichtenParameterErkannt(sT,s,bekannteBefehle,threads,0,_xSteps-1,0,_tSiz-1) then continue;
     if istDasBefehl('Threadanzahl:',s,bekannteBefehle,true) then begin
-      threads:=strtoint(s);
+      threads:=strToInt(s);
       continue;
     end;
     if istDasBefehl('Epsilon:',s,bekannteBefehle,true) then begin
@@ -3996,7 +3996,7 @@ begin
     if istDasBefehl('Ende',s,bekannteBefehle,false) then break;
     if quelle.dichtenParameterErkannt(sT,s,bekannteBefehle,threads,0,_xSteps-1,0,_tSiz-1) then continue;
     if istDasBefehl('Threadanzahl:',s,bekannteBefehle,true) then begin
-      threads:=strtoint(s);
+      threads:=strToInt(s);
       continue;
     end;
     if istDasBefehl('horizontal',s,bekannteBefehle,false) then begin
@@ -4705,7 +4705,7 @@ begin
     bekannteBefehle.clear;
     if istDasBefehl('Ende',s,bekannteBefehle,false) then break;
     if istDasBefehl('Threadanzahl:',s,bekannteBefehle,true) then begin
-      threads:=strtoint(s);
+      threads:=strToInt(s);
       continue;
     end;
     if istDasBefehl('xMin:',s,bekannteBefehle,true) then begin
@@ -5173,7 +5173,7 @@ begin
     end;
     if istDasBefehl('Palette:',s,bekannteBefehle,true) then begin
       if s[1] in ['0'..'9'] then
-        i:=strtoint(erstesArgument(s))
+        i:=strToInt(erstesArgument(s))
       else
         i:=0;
       while i>=length(paletten) do begin
@@ -5188,7 +5188,7 @@ begin
       continue;
     end;
     if istDasBefehl('Schriftgröße:',s,bekannteBefehle,true) then begin
-      schriftgroesze:=strtoint(s);
+      schriftgroesze:=strToInt(s);
       continue;
     end;
     if istDasBefehl('Rahmen',s,bekannteBefehle,false) then begin
@@ -5197,7 +5197,7 @@ begin
     end;
     if istDasBefehl('Nachbearbeitung:',s,bekannteBefehle,true) then begin
       if s[1] in ['0'..'9'] then
-        i:=strtoint(erstesArgument(s))
+        i:=strToInt(erstesArgument(s))
       else
         i:=0;
       if i>=length(nachbearbeitungen) then begin
@@ -5221,7 +5221,7 @@ begin
         exit;
       end;
       if s[1] in ['0'..'9'] then
-        i:=strtoint(erstesArgument(s))
+        i:=strToInt(erstesArgument(s))
       else
         i:=0;
       if not erzeugeLegende(sT,f,s,self,_minW,_maxW,nachbearbeitungen[i],paletten[i]) then begin
@@ -5250,7 +5250,7 @@ begin
       else if endetMit('-',s) then
         achsen[length(achsen)-1].faktor:=2
       else achsen[length(achsen)-1].faktor:=1;
-      achsen[length(achsen)-1].striche:=strtoint(s);
+      achsen[length(achsen)-1].striche:=strToInt(s);
       continue;
     end;
     if istDasBefehl('Konturen:',s,bekannteBefehle,false) then begin
@@ -5288,7 +5288,7 @@ begin
       continue;
     end;
     if istDasBefehl('Daten:',s,bekannteBefehle,true) then begin
-      i:=strtoint(erstesArgument(s));
+      i:=strToInt(erstesArgument(s));
       if i>=length(quellen) then begin
         j:=length(quellen);
         setLength(quellen,i+1);
@@ -8124,15 +8124,15 @@ begin
       exit;
     end;
     if istDasBefehl('Breite:',s,bekannteBefehle,true) then begin
-      breite:=strtoint(s);
+      breite:=strToInt(s);
       continue;
     end;
     if istDasBefehl('Höhe:',s,bekannteBefehle,true) then begin
-      hoehe:=strtoint(s);
+      hoehe:=strToInt(s);
       continue;
     end;
     if istDasBefehl('Schriftgröße:',s,bekannteBefehle,true) then begin
-      schriftgroesze:=strtoint(s);
+      schriftgroesze:=strToInt(s);
       continue;
     end;
     if istDasBefehl('Farbe linear',s,bekannteBefehle,false) then begin
@@ -8193,7 +8193,7 @@ begin
         if endetMit('+',s) then beschriftungsschritte[length(beschriftungsschritte)-1].faktor:=0.5
         else if endetMit('-',s) then beschriftungsschritte[length(beschriftungsschritte)-1].faktor:=2
         else beschriftungsschritte[length(beschriftungsschritte)-1].faktor:=1;
-        beschriftungsschritte[length(beschriftungsschritte)-1].schritte:=strtoint(s);
+        beschriftungsschritte[length(beschriftungsschritte)-1].schritte:=strToInt(s);
       until false;
       continue;
     end;
@@ -8351,7 +8351,7 @@ begin
     istZahl:=istZahl and (s[i] in ['0'..'9']);
 
   if istZahl then begin              // bei s handelt es sich um den Index selbst
-    result:=strtoint(s);
+    result:=strToInt(s);
     if (result<0) or (result>=length(pws^)) then begin
       gibAus('Index ('+s+') liegt außerhalb des gültigen Bereichs (0..'+intToStr(length(pws^)-1)+')!',3);
       result:=-1;
@@ -8399,7 +8399,7 @@ begin
     istZahl:=istZahl and (s[i] in ['0'..'9']);
 
   if istZahl then begin              // bei s handelt es sich um den Index selbst
-    result:=strtoint(s);
+    result:=strToInt(s);
     if (result<0) or (result>=length(pks^)) then begin
       gibAus('Index ('+s+') liegt außerhalb des gültigen Bereichs (0..'+intToStr(length(pks^)-1)+')!',3);
       result:=-1;
@@ -8584,35 +8584,42 @@ end;
 
 function ermittleAnstieg(sT: boolean; s: string): boolean;
 var
-  i,j:  longint;
-  t:    string;
-  wert: extended;
+  i,j:        longint;
+  name,datei: string;
+  wert:       extended;
 begin
   result:=false;
-  t:=erstesArgument(s);
-  if startetMit('[',t) then begin
-    s:=t+' '+s;
-    i:=round(strToFloat(erstesArgument(s,',')));
-    j:=round(strToFloat(erstesArgument(s,']')));
-    t:=erstesArgument(s);
-  end
-  else begin
-    i:=0;
-    j:=1;
-  end;
+  name:=erstesArgument(s);
   if not startetMit('aus ',s) then begin
-    gibAus('Syntaxfehler, erwarte: ''ermittle Anstieg $name aus $datei'' oder ''ermittle Anstieg $name [1.Spalte,2.Spalte] aus $datei''.',3);
+    gibAus('Syntaxfehler, erwarte: ''ermittle Anstieg $name aus $datei [1.Spalte,2.Spalte]''.',3);
     exit;
   end;
-  if not fileExists(s) then begin
-    gibAus('Datei '''+s+''' existiert nicht um Werte für Anstiegsermittlung zu lesen!',3);
+  datei:=erstesArgument(s);
+  if not fileExists(datei) then begin
+    gibAus('Datei '''+datei+''' existiert nicht um Werte für Anstiegsermittlung zu lesen!',3);
     exit;
   end;
+  if s<>'' then begin
+    if not startetMit('[',s) then begin
+      gibAus('Syntaxfehler, erwarte: ''ermittle Anstieg $name aus $datei [1.Spalte,2.Spalte]''.',3);
+      exit;
+    end;
+    i:=strToInt(erstesArgument(s,','));
+    j:=strToInt(erstesArgument(s,']'));
+    if s<>'' then begin
+      gibAus('Syntaxfehler, erwarte: ''ermittle Anstieg $name aus $datei [1.Spalte,2.Spalte]''.',3);
+      exit;
+    end;
+  end
+  else begin
+    i:=0;
+    j:=1;
+  end;
   if sT then
     wert:=1
   else
-    wert:=matheunit.ermittleAnstieg(shellExpand(s),i,j);
-  globaleWerte.add(t,wert);
+    wert:=matheunit.ermittleAnstieg(shellExpand(datei),i,j);
+  globaleWerte.add(name,wert);
   result:=true;
 end;