频道分类

delphi TStrings 随机打乱

作者:admin 来源: 日期:2020/4/6 11:11:17 人气: 标签:

 
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;


上一篇:delphi Memo1 自定义位置插入下一篇:没有资料