delphi我想在ComboBox1属性 items 里面写1到30

来源：百度知道编辑：UC知道时间：2024/05/24 03:37:24

我想在ComboBox1属性 items 里面写1到30

我想的是不用一个一个去写

if a<30 then
begin
a:=a+1;
self.Memo1.Lines:=a;
end;
用个循环。。。。

但是我不知道应该用什么类型？实型还是整型...

谢谢
谢谢
你们啊

var i : integer;
begin
combobox1.clear;
for i := 1 to 30 do
combobox1.items.add(inttostr(i));
end;

楼上的兄弟，第一步是要把combobox1清空，所以combobox1.clear;是必不可少的

var i:integer;
begin
for i:=0 to 30 do
self.ComboBox1.Items.add(IntToStr(i));
end;

var
I:integer;
begin
for I:=1 To 30 do
begin
self.memon1.lines.add(inttostr(I));
end;
end;
这样就可以了。
楼上那位老兄I应该从1开始。