1461
社区成员
26.2w+
社区内容
- 主页
- 招聘
- 语言基础/算法/系统设计
- 数据库相关
- 图形处理/多媒体
- 网络通信/分布式开发
- VCL组件开发及应用
- Windows SDK/API
怪事，大家来看看这个问题
var s1,temp,s2:String;
i,j,count:integer;
begin
s1:='123456789';
count:=Length(s1);
for i:=0 to count do
begin
randomize;
j := random(Length(s1));
temp:=s1[j];
Delete(s1,j,1);
s2:=s2+temp;
end;
edit1.Text:=s2;
end;
为什么最后得到的字符串长度不一？
有时候一个字符也没有？
i,j,count:integer;
begin
s1:='123456789';
count:=Length(s1);
for i:=0 to count do
begin
randomize;
j := random(Length(s1));
temp:=s1[j];
Delete(s1,j,1);
s2:=s2+temp;
end;
edit1.Text:=s2;
end;
为什么最后得到的字符串长度不一？
有时候一个字符也没有？
...全文
还没有回复，快来抢沙发～