关于随机问题

Question

在数据库里面Select出10条数据。同一个界面上，分两次显示在5个Label上，每次显示5条。但是这5条必须是随机地显示。显示过了的，不能再次显示。请教各位大侠，小弟该怎么做？

Answer 1

//判断一个整数是否存在于一个数组中,用于下面随机数组函数中
function IntExist(OprInt: Integer; MyArray: array of Integer): Boolean;
var
  i: Integer;
begin
  Result := False;
  for i := 0 to High(MyArray) do
    if OprInt = MyArray[i] then
    begin
      Result := True;
      Break;
    end;
end;  //产生随机数组,自己添加到程序中
  SetLength(RandomArray, 10);
  i := 0;
  repeat
    Randomize;
    tempInt := Random(11); //这里产生0~10的随机数
    if not IntExist(tempInt, RandomArray) then //这里可以排除0
    begin
      RandomArray[i] := tempInt;
      Inc(i);
    end;
  until i = 10;