高手请进,急

Question

怎么样自动生成一个10位的包括字母和数字的密码

Answer 1

使用random([range:word])可心取得0..range之间的随机数！
不过不能取字母

Answer 2

var
  i:Integer;
  mstr:String;
begin //产生含有ASCII 33--126字符的长度为8的随机字符串，32是空格，126以上不可显示
  Randomize;
  mstr:='';
  for i:=1 to 10 do
    mstr:=mstr+Char(Byte(' ')+1+Byte(Random(125-32)));
  Caption:=mstr;
end;

Answer 3

P|TPyOO5H|
我试过了,可是产生一个这个的密码啊那个两个竖线是怎么回事啊

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
   I,j: Integer;
   Str,Temp_str:string;
begin
   Randomize;
   J:=0;
   Temp_str:='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
   while j<10 do
   begin
     str:=str+Temp_str[RandomRange(1,62)];
     j:=j+1;
   end;
   ShowMessage(str);
end;
肯定可以,我調適過

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
  mstr:String;
  ms:string;
begin //产生含有ASCII 33--126字符的长度为8的随机字符串，32是空格，126以上不可显示
  Randomize;
  mstr:='';
  ms:='0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz' ;
  for i:=1 to 10 do
    mstr:=mstr+ms[Random(58)];
  Caption:=mstr;
  showmessage(caption);
end;