• 主页
  • 招聘
  • 语言基础/算法/系统设计
  • 数据库相关
  • 图形处理/多媒体
  • 网络通信/分布式开发
  • VCL组件开发及应用
  • Windows SDK/API
yypp 2001年11月08日
怪事,大家来看看这个问题
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;

为什么最后得到的字符串长度不一?
有时候一个字符也没有?
...全文
54 点赞 收藏 6
写回复
6 条回复

还没有回复,快来抢沙发~

发动态
发帖子
Delphi
创建于2007-08-02

1461

社区成员

26.2w+

社区内容

Delphi 开发及应用
社区公告
暂无公告