Delphi ListBox1列表随机打乱

本文整理自网络，侵删。

 
procedure TForm1.Button1Click(Sender: TObject);
var
random1: integer;
i: Integer;
randomChosen: String;
begin
 for i := 0 to (ListBox1.Count - 1) do
   begin
     random1 := Random(ListBox1.Count);
     randomChosen := ListBox1.Items.Strings[random1];
     ListBox1.Items.Delete(random1);
     ListBox1.AddItem(randomChosen, nil);
   end;
end;
end.
 

相关阅读 >>

Delphi版文件夹加密软件源代码

Delphi xe sha1

Delphi tfdconnection只能取得50处理

Delphi执行js

Delphi 判断文件是否被占用

Delphi获取网卡mac地址

Delphi dbgrid 表格自适应宽度

Delphi 取出鼠百标点击的 stringgrid 中某单度元格的值

Delphi 如何使用程序标识符检查程序是否已安装

Delphi now、date、time、currentyear - 当前日期

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

转载请注明出处：木庄网络博客 » Delphi ListBox1列表随机打乱