关于算法的问题（100分）

Question

小弟有如下问题：
From中有List1和List2控件，现在希望从List1（假设有20条记录）中随机抽出5条记录
插入到List2中。
    希望各位大虾指点，并给出‘随机抽取’的算法！谢谢！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
    Str:string;
begin
  Randomize;
  For i:=1 to 5 do
  begin
    j:=Random(20);
    listbox2.Items.Add(ListBox1.Items.Strings[j]);
  end;
end;
不知道是不是你所要求的！

Answer 2

随机用random不过要不要考虑重复的问题呢？？

Answer 3

看用的是什么数据库，如果是 Sql Server2000,可以这样做：
   如果list1 和list2的表结构相同：
   with TADOQuery.create(nil) do
     begin 
       connection:= TADOConnection1;
       //or connectionstring:='...';
       Sql.text:='insert into list2stable select top 5 * from list1stable order by newid()';  
      execsql;     
     end;