简单的小问题 进来看看

Question

在Delphi中
如何实现  随机生成字符串很简单
请各位指点

Answer 1

function RandomFrom(const AValues: array of string): string; overload;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
  sLen,i : integer;
begin
  Randomize ();
  sLen := Random (100); //随机字符串的长度，最长为99
  SetLength(s,sLen);
  for i := 0 to sLen - 1 do
    s[i+1] := Chr ($20 + Random(128-$20));  //删除$20则包括了不可见字符
  showmessage (s);
end;

Answer 3

上次查VB时看到过一个.
用ASCII码来生成的
因为字母在ASCII里就是数字..
你随机数字会吧??

Answer 4

方法太多了
可以随机生成两位的ascii码然后转换，字符串的长度也可以随机产生

Answer 5

procedure tform1.Randomchar(int_len:integer);
var
 i:Integer;
begin
      for i:=1 to int_len do
      label1.Caption:=label1.Caption+Char(Random(32)+97)
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
Randomchar(5);
end;

Answer 6

24个字母对应的ASCII码应该可以随机产生的八，然后转成字母就可以了...