＋设为首页 ＋添加到收藏夹
procedure tform1.button11click(sender: tobject); var i,r : integer; s : tstrings; begin listbox1.items.clear; for i := 1 to 1000 do begin listbox1.items.add(inttostr(i)); end; s := tstringlist.create; s.assign(listbox1.items); listbox2.items.clear; for i := 1000 downto 1 do begin r := random(i) + 1; listbox2.items.add(s.strings[r - 1]); s.delete(r - 1); end; s.free; end;
在此我用listbox 來代替 array,以方便直接觀看執行結果 【程序编程相关:如何在各种开发语言中调用web serv】 【推荐阅读:基于阻塞Socket的远程控制类库-TN】【扩展信息:Delphi控件的“拿来主义”】
--------------------------------
小弟才疏學淺,若有謬誤請不吝指教 --------------------------------