一个20位的全部由数字组成的字符串，我想把他转成数字参与运算，应该怎么转？如：88888888888888888888

Question

如：88888888888888888888
这个是在edit中输入的，我用edit.text可以得到'88888888888888888888'，想把它变成数字参与运算，比如说可以
aaa := '88888888888888888888';
bbb := 转换(aaa) + 1;

Answer 1

procedure ButtonCLick(Sender: TObject);
Var
NumStart, NumEnd: Integer;
begin
  NumStart := StrToInt(EditStart.Text);
  ShowMessage(IntToStr(NumStart));
end;
这段代码输入10个数字还没问题。再多就出错了。

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  f:double;
begin
  s:='88888888888888888888';
  try
    f:=strtofloat(s);
  except
  end;
  showmessage(floattostr(f));
end;