阿善：
其实不需要重载，让Val直接支持INT64就可以了
[阅读: 462] 2005-11-07 16:16:33
function StrToInt(const S: string): Integer;
var
E: Integer;
begin
Val(S, Result, E);
if E <> 0 then ConvertErrorFmt(@SInvalidInteger, [S]);
end;
变成
function StrToInt(const S: string): Int64;
var
E: Int64;
begin
Val(S, Result, E);
if E <> 0 then ConvertErrorFmt(@SInvalidInteger, [S]);
end;
但不知道Val里做了什么，为什么没有这样改进。这样改反正也支持32位的
让暴风雨来的更猛烈些吧！
| -ICP -IDC -ISP |