一个问题90分

[yypp]

有字符
qwertyuioplkjhgfdsazxcvbnm

如何把他们随机生成不重复的字符串？长度和上面的一样

[wyzegg]

显然用排列啦

[Nizvoo]

能不能哪位给出代码？
[e-mail]

[yypp]

up
请贴代码
可以加分

[zou5655]

function TForm1.HAn: String;
Const
yy = 1000;
Var
a : Array [0..25] Of Char;
Temp : Char;
i, FromSit, ToSit : Integer;
begin
Randomize;
For i := 0 To 25 Do
a[i] := Chr(i+65);
//随机交换关联序号
For i := 1 To yy Do
Begin
//生成随机数
FromSit := Random(26);
ToSit := Random(26);
//交换序号
Temp := a[FromSit];
a[FromSit] := a[ToSit];
a[ToSit] := Temp;
End;
Result := a;
end;

[hymn]

upupup~~~~~!~!!

[ppyy]

问题已经解决
但是给分的界面怎么出现不了？

[zou5655]

点击问题后的“管理”不就行了吗？？？

[ppyy]

不行啊
管理都没有出现

[ppyy]

KAO
点了管理也没有出来