delphi TStrings 随机打乱

本文整理自网络，侵删。

 
procedure Shuffle(Strings: TStrings);
var
  i: Integer;
begin
//delphitop.com
  for i := Strings.Count-1 downto 1 do 
    Strings.Exchange(i, Random(i+1));
end;

 

相关阅读 >>

关于idtcpserver和idtcpclient对stream的发送与接收问题

Delphi fdmemtable1建立缓存表

Delphi 读取网上的文本文件

Delphi 关于汉字换行问题

Delphi windows 编程[19] - 改变菜单项的状态: getmenustate、enablemenuitem

Delphi trestclient + trestrequest + trestresponse

Delphi监视进程并结束进程

Delphi getvolumeinformation获取硬盘分区信息

Delphi xe listbox 行高根据内容高度进行调速

Delphi 窗体form的formstyle属性设置为fsstayontop时属性设置不起作用问题探讨。

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi TStrings 随机打乱