5,388
社区成员
发帖
与我相关
我的任务
分享[最簡單的問題]strtointdef[為何不對]
var
i:integer;
begin
i := strtointdef(Trim(Edit1.Text),0);
showmessage(inttostr(i));
end;
Edit1.Text := '1234567890';//ok
Edit1.Text := '12345678901';//11位時,i:=0;
如何解決此問題?
i:integer;
begin
i := strtointdef(Trim(Edit1.Text),0);
showmessage(inttostr(i));
end;
Edit1.Text := '1234567890';//ok
Edit1.Text := '12345678901';//11位時,i:=0;
如何解決此問題?
...全文
请发表友善的回复…
发表回复
lws0472 2002-12-11
- 打赏
- 举报
看一下帮助
laihecongxi 2002-12-11
- 打赏
- 举报
范围超出用int64
procedure TForm1.Button3Click(Sender: TObject);
var
i:int64;
begin
i := strtoint64def(Trim(Edit1.Text),0);
showmessage(inttostr(i));
end;
procedure TForm1.Button3Click(Sender: TObject);
var
i:int64;
begin
i := strtoint64def(Trim(Edit1.Text),0);
showmessage(inttostr(i));
end;
lws0472 2002-12-11
- 打赏
- 举报
看一下integer的范围你就知道了
integer范围
147483648..2147483647
12345678901 > 2147483647
integer范围
147483648..2147483647
12345678901 > 2147483647
