delphi：如何用combobox分级读取数据库中的字段内容

我不知道你是使用什么方法把你指的第一级给取出来的,不过我也做了一个程序(按照你的题意),我使用的是Tstirngs类型(str:Tstrings 全局变量):
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
str := tstringlist.Create;
query1.Open;
query1.First;
while not query1.Eof do
begin
str.Add(query1.fieldbyname('id').AsString);
query1.Next;
end;
for i := 0 to str.Count - 1 do
begin
if length(str[i]) = 2 then//当长度为2时即看做第一级
combobox1.Items.Add(str[i]);
end;
end;
在显示小项时,也使用这个str:
procedure TForm1.ComboBox1Change(Sender: TObject);
var
i : integer;
begin
combobox2.Items.Clear;
for i := 0 to str.Count - 1 do
begin
if (pos(combobox1.Items[combobox1.itemindex],str[i])<> 0) and (length(str[i])<>2) then
//当str里含有第一级,并且长度不等于2时,combobox2中添加
combobox2.Items.Add(str[i]);
end;
可做参考哦~~
end;