TStringList行与行之间打乱的例子

在网络上没找到类似的，所以自己写了个简单的例子。

procedure TForm1.Button1Click(Sender: TObject);
var
  N,X:Integer; //利用N来计算所剩行数、利用X来记录当前行数
begin
  Randomize;//随机种子
  N:= Memo1.Lines.Count-1; //因为要读取第一行所以要减去1
  while N >= 0 do begin //While语句循环,直达到N小于或等于0才停止
    X:=Random(N);//记录当前行数
    Memo2.Lines.Add(Memo1.Lines[X]);
    Memo1.Lines.Delete(X);
    N:=N-1;
  end;
end;