对ComboBox组件比较熟的牛哥，帮我把一小段ASP代码改为Delphi ???

Question

翻譯這段代碼的難點在;
 (1)delphi中有求數組上限的函數嗎??如asp中的 Ubound (myarray,2)
 (2)delphi中有把SQL查詢的記錄放到2維數組中的處理函數嗎???如asp中的myarray=rs.GetRows();
 (3)delphi中有 value,item,selected等屬性嗎????如asp中的 
"<option value="""&myarray(0,i)&""" Selected  >"&myarray(1,i)&"</option>"  
 

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOQuery1.SQL.Text :=
'select dep_id,dep_name'#13#10 +
'from tab_department'#13#10 +
'order by dep_id'#13#10;
  ADOQuery1.Open;
  ComboBox1.Clear;
  while not ADOQuery1.Eof do begin
    ComboBox1.Items.AddObject(ADOQuery1.FieldByName('dep_name').AsString,
      TObject(ADOQuery1.FieldByName('dep_id').AsInteger));
    ADOQuery1.Next;
  end;
  ADOQuery1.Close;
end;

Answer 2

對我有啟發!!!!
不過要是對某一條記錄進行修改前,初始時是有值的.比如str_id=3,顯示的應該是'開發部'.而不
是str_id=1,對應的'人事部'.像ASP中的下列寫法,怎麼寫????
  If CLng(lstSelect) = myarray(0,i) Then
Response.Write"<option value="""&myarray(0,i)&""" Selected  >"&myarray(1,i)&"</option>"

Answer 3

  ComboBox1.ItemIndex := ComboBox1.Items.IndexOfObject(TObject(3));

Answer 4

解決了!謝謝zswang(伴水)(需要充充电)!