现在重复出现的几率有点高

你是打算让我们猜你的源代码？

一共三个分组的数字，每一个分组都是1到9.这重负出现的概率太高了吧。

一般随机数只保证大量数据均匀分布，如果希望少量数据或者重复率不高，加个计数吧，在随机M个数里面最多重复N次。
@_@

另外楼主，以下二段代码的区别：
①
for k:=1 to ADOTable1.RecordCount do
begin
ADOTable1.RecNo:=1+Random(ADOTable1.RecordCount);
list1.Append(ADOTable1.FieldByName('content').Text);
break;
end;
②
ADOTable1.RecNo:=1+Random(ADOTable1.RecordCount);
list1.Append(ADOTable1.FieldByName('content').Text);

楼主搜索 不重复的随机 。自然就有结果。