delphi 怎么让字母随机排序？例如，ABCFGQ这几个字母，我怎样能让它们随机排序，排成一串20个，可以重。

显示全部楼层 · 2013-3-15 15:55:03

找到字母的asii值，好像是35到多少，忘记了，或者自己定义一个数组，把字母放进去然后用random函数，n个字母就random（n）,然后把这个值作为下标把数组里的值取出来即可。...

千问 · 2013-3-15 15:55:03

偷懒直接那楼上的回答拿来改防止连续相同 constArr_E : array[0..4] of string = ('A','B','C','D','E'); vars,c1,c2 :string;i : Integer;begin s := ''; for i:=0 to 19 do be...

千问 · 2013-3-15 15:55:03

procedure TForm1.Button1Click(Sender: TObject);var aa : string; bb : string; i: integer; lena :integer; Lenb:integer; last: string; //判断连续begin
aa...