您所在位置：主题：帮我看下哪里出问题了
channelxp
[专家分：20] 发布于 2007-06-20 13:36:00
Multi := StrToInt(FUserPass) * StrToInt(RandomNum);
运行的时候会报错说'432423543' is not a valid integer value，单引号里的是由RandomNum产生的随机的数字字符串，下面是产生随机数的代码
function TDModule.GetRandomNum: string;
var
i: Integer;
begin
Randomize;
RandomNum := '';
for i := 0 to 9 do
RandomNum := RandomNum + Char(Byte('0')+Byte(Random(10)));
Result := RandomNum;
end;
运行的时候会报错说'432423543' is not a valid integer value，单引号里的是由RandomNum产生的随机的数字字符串，下面是产生随机数的代码
function TDModule.GetRandomNum: string;
var
i: Integer;
begin
Randomize;
RandomNum := '';
for i := 0 to 9 do
RandomNum := RandomNum + Char(Byte('0')+Byte(Random(10)));
Result := RandomNum;
end;
