summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--unit2.pas7
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