急！！各位大虾帮帮忙！！谢谢

Question

function GetOrdersList(vFlag:integer;vStr:string):TStringList;
var
  vOrdersList:TStringList;
  sqlStr:string;
begin 
  vOrdersList:=TStringList.Create;
  case vFlag of
    0:sqlStr:='select S_O_SERIAL from Orders O,Manufactory M where O.S_O_C_ID=M.M_ID AND S_O_TYPE=1 AND S_O_EXIST=0 and M_NAME='''+vStr+'''';
    1:sqlStr:='select S_O_SERIAL from Orders O,Manufactory M where O.S_O_C_ID=M.M_ID AND S_O_TYPE=2 AND S_O_EXIST=0 and M_NAME='''+vStr+'''';
    2:sqlStr:='select S_O_SERIAL from Orders O,Customers C where O.S_O_C_ID=C.C_ID AND S_O_TYPE=3 AND S_O_EXIST=0 and C_NAME='''+vStr+'''';
    3:sqlStr:='select S_O_SERIAL from Orders O,Customers C where O.S_O_C_ID=C.C_ID AND S_O_TYPE=4 AND S_O_EXIST=0 and C_NAME='''+vStr+'''';
    5:sqlStr:='select S_O_SERIAL from Orders O,Customers C where O.S_O_C_ID=C.C_ID AND S_O_TYPE=3 AND S_O_EXIST=0 and C_NAME='''+vStr+'''';
   end;
  with DM.HumanResQuery do begin
    Close;
    SQL.Clear;
    SQL.Add(sqlStr);
    Open;
    while not Eof do begin
      vOrdersList.Add(FieldValues['S_O_SERIAL']);
      Next;
    end;
  end;
  GetOrdersList:=vOrdersList;
end;
procedure TPAnalyseForm.ComboBox1Change(Sender: TObject);
begin
  Combobox3.Items.Clear;
  Combobox3.Items.AddStrings(GetOrdersList(RadioGroup2.ItemIndex,Combobox1.Text));
end;请问各位大虾为什么Combobox3的值怎么赋不进去的！？

Answer 1

用这个
procedure TForm1.ComboBox1Change(Sender: TObject);
var
  volist : tstringlist;
  i : integer;
begin
   volist := TStringList.Create;
   volist := GetOrdersList(RadioGroup2.ItemIndex,Combobox1.Text);
   Combobox3.Items.Clear;
   for i := 0 to volist.count-1 do
      Combobox3.Items.Add(volist[i])   ;
  volist.Free;
end;