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 判断文件是否被使用

Delphi 递归算法遍历文件

Delphi tfilestream流操作1

用Delphi编写涂鸦桌面的小程序

Delphi 判断是否为空('none', 'null', '')

Delphi 检查注册表键、键值是否存在

Delphi windows api判断文件共享锁定状态

Delphi wininet带进度下载http文件

Delphi package

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

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