A
Alphazw
Unregistered / Unconfirmed
GUEST, unregistred user!
下面的这段程序是我从一个VB的源程序中转换过来的，可是由于Delphi对数据类型的控制
导致运行不能通过，现在想请教一下各位谁能够让下面的程序正常运行而不改变它在VB中
的运行结果。
我的电子邮件地址是：alpha@kzinfo.net.欢迎来信与本人讨论Delphi的编程问题，不过电
子邮件要到每个星期六才能回复。
先在此谢谢各位了！
var
word:string;
pass:string;
I:integer;
begin
ramdomize;
word:='abcdefghijklmnopqrstuvwxyz';
pass:='';
for i:=0 to 8 do begin
pass:=pass+copy(word,length(word)*random+1,1);
end;
end;
其实就是一个产生随机密码的程序，请各位帮个忙，谢谢了！
导致运行不能通过，现在想请教一下各位谁能够让下面的程序正常运行而不改变它在VB中
的运行结果。
我的电子邮件地址是：alpha@kzinfo.net.欢迎来信与本人讨论Delphi的编程问题，不过电
子邮件要到每个星期六才能回复。
先在此谢谢各位了！
var
word:string;
pass:string;
I:integer;
begin
ramdomize;
word:='abcdefghijklmnopqrstuvwxyz';
pass:='';
for i:=0 to 8 do begin
pass:=pass+copy(word,length(word)*random+1,1);
end;
end;
其实就是一个产生随机密码的程序，请各位帮个忙，谢谢了！
]