文本文件只有一行，变一下顺序，怎么写？？

Question

文本文件内容：
1,28,21,2,22,31,5,27,19,10,
只要将上面的数据顺打乱(可以用memo作过度)，存到新的文本文件就可以啦！打乱数据最好是随机的，不随机也可以。帮忙简单地写一下代码。

Answer 1

把这些数据读到一个数组中，（可以按‘，’逗号截取）使用random给数据重新赋值

Answer 2

TO： flyingsnowfox(海风) 
数字本身不变，只是顺序变化！！！
按照你的方法能否写几句代码？？大家帮我呀。。

Answer 3

大概思路：
const
  s = '1,28,21,2,22,31,5,27,19,10';
var
  i,j,k : integer;
  tsl : TStringList;
begin
  tsl := TStringList.Create;
  tsl.CommaText := s;
  i := random(tsl.Count);
  j := random(tsl.count);
  k := StrToInt(tsl.Strings[i]);
  tsl.Strings[i] := tsl.Strings[j];
  tsl.Strings[j] := IntToStr(k);
end; end;

Answer 4

谢谢： hfyun(逮住就问) 
请各位继续发表自已的意见！

Answer 5

function DataTest: string;
var
  str: string;
  TempStr: string;
begin  
  Memo1.Clear;
  Memo1.Lines.LoadFromFile('D:\Data.txt');
  str := Memo1.Lines.Strings[0];
  TempStr := '';
  While Pos(',',str)>0 do
  begin
    TempStr := Copy(str,1,pos(',',str)) + TempStr;//颠倒顺序
    delete(str,1,Pos(',',str);
  end;
  Result := TempStr;
end;