怎样把combobox1组件下拉列表内的项循环显示在combobox1.text中

Question

怎样把combobox1组件下拉列表内的项循环显示在combobox1.text中下拉列表内的项：
-----------------------------
A
500
proage
q100
100
54
789
ASD
------------------------------

Answer 1

var
  i: Integer;
begin
  for i := 0 to combobox1.items.count - 1 do
    combobox1.text := combobox1.items[i];
end;

Answer 2

什么意思，是按时间间隔吗？可以用Timer呀

Answer 3

无想把项逐个显示在combobox中

Answer 4

把 sysu(死树)的代码放在timer1的ontimer事件中，调好间隔时间就行了

Answer 5

加个延时啊，如下：
var
  i: Integer;
begin
  for i := 0 to combobox1.items.count - 1 do begin
    combobox1.text := combobox1.items[i];
    sleep(1000);
    Application.ProcessMessages;
  end;
end;

Answer 6

if combobox1.ItemIndex < combobox1.Items.Count - 1 then
  combobox1.ItemIndex := combobox1.ItemIndex+1
else
  combobox1.ItemIndex := 0;