freies Editieren fängt nun ungültige Zahlen ab

1 files changed, 6 insertions, 1 deletions

diff --git a/unit2.pas b/unit2.pas
index eb2f2b6..454d30a 100644
--- a/unit2.pas
+++ b/unit2.pas
@@ -522,7 +522,12 @@ begin
         break;

       end;

       setlength(tmpVals,length(tmpVals)+1);

-      tmpVals[length(tmpVals)-1]:=strToScientific(leftStr(_cs[i],length(_cs[i])-1));

+      try

+        tmpVals[length(tmpVals)-1]:=strToScientific(leftStr(_cs[i],length(_cs[i])-1));

+      except

+        setlength(tmpVals,length(tmpVals)-1);

+        continue;

+      end;

       acs.add(tmpVals[length(tmpVals)-1],1);

     end;

   if length(tmpVals)<ordnung then begin