diff options
-rw-r--r-- | unit2.pas | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -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
|