[最簡單的問題]strtointdef[為何不對]

Question

var
  i:integer;
begin
  i := strtointdef(Trim(Edit1.Text),0);
  showmessage(inttostr(i));
end;Edit1.Text := '1234567890';//ok
Edit1.Text := '12345678901';//11位時,i:=0;
如何解決此問題?

Answer 1

看一下integer的范围你就知道了integer范围
147483648..214748364712345678901 > 2147483647

Answer 2

范围超出用int64
procedure TForm1.Button3Click(Sender: TObject);
var
  i:int64;
begin
  i := strtoint64def(Trim(Edit1.Text),0);
  showmessage(inttostr(i));
end;