求助【delphi怎么随即文本内容】

Question

好比与当前程序通目录下有一个 userid.txt文件内容如下：
20120212
201003213
2011043144
200953124
200808513
20095431113
204564162、、、、、、、、、、、、、、、、、、、、、、、、、、分割线
我要怎么取txt文本下的内容到edt中呢  我要从这几个当中随即 而不是去随即这些数  大家有没有好的思路或者算法啊  求大家给一点新的想法啊。呵呵 小弟谢谢啦

Answer 1

TStringList list;list.LoadFormFile('c:\1.txt');
你根据索引从list中取

Answer 2

list:TStringList list:=TStringList.Create;
list.LoadFormFile('c:\1.txt');
Edit1.Text:=list[Random(list.Count)];
list.Free;

Answer 3

可以用把数据加载到Memo中,直接看到结果Memo1.Lines.LoadFromFile('c:\1.txt');
Edit1.Text:=Memo1.Lines.Strings[Random(Memo1.Lines.Count)];