5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
zouqiang122 2007-04-02
- 打赏
- 举报
up
Cocular 2007-04-01
- 打赏
- 举报
真实的
Pascal有StrToInt 函数
还不是要用VAL
VAL（字符串，数字，错误代码）
结果保存为数字中
如有问题，错误代码显示的几位出问题
Pascal有StrToInt 函数
还不是要用VAL
VAL（字符串，数字，错误代码）
结果保存为数字中
如有问题，错误代码显示的几位出问题
cnhxjtoa 2007-03-31
- 打赏
- 举报
来晚了
noelse520 2006-09-12
- 打赏
- 举报
StrToInt64('1234567890123');
wudi_1982 2006-09-11
- 打赏
- 举报
procedure TForm1.Button2Click(Sender: TObject);
var
i : Longint;
b : Int64;
s1,s2 : string;
begin
s1 := '12345';
s2 := '123456789011';
try
i := StrToInt(s1);
b := StrToInt64(s2);
except
end;
ShowMessage(format('Longint:%d'+#13+'Int64:%d',[i,b]));
end;
var
i : Longint;
b : Int64;
s1,s2 : string;
begin
s1 := '12345';
s2 := '123456789011';
try
i := StrToInt(s1);
b := StrToInt64(s2);
except
end;
ShowMessage(format('Longint:%d'+#13+'Int64:%d',[i,b]));
end;
postren 2006-09-11
- 打赏
- 举报
var
L: Int64;
L := StrToInt64('1234567890123');
L: Int64;
L := StrToInt64('1234567890123');
