如何生成一字符串的所有字符相同的类似字符串？在线等待，多谢了！

Question

生成一字符串（例：‘0123456’）的所有字符相同的类似字符串（例：‘2345610’，‘6452301’，‘3564102’等等）？

Answer 1

用copy和random,其中copy取出各位数值，random产生随机数确定各数值的排列顺序

Answer 2

我按你的要求写了一个,你看看:
procedure TForm1.Button1Click(Sender: TObject);
var S,s1: string;
    n,n1,i,k: integer;
begin
     S := edit1.text; //edit1的内容是你的原始字串.
     n := length(s);
     n1:=n;
     for i:=1 to n do
     begin
       k := random(n1)+ 1;
       S1:= s1 + Copy(S, k,1);
       Delete(s,k,1);
       n1 := n1-1;
     end;
       edit2.Text:=s1;  //得到的随机字串.
end;