关于lxpbuaa的《delphi精要》一书的小问题

[waiwailao]

lxpbuaa:
你好：在你的《delphi精要》一书p194页的自动下拉表的程序段部分，我对以下不明白：
for I:=1 to 8-Items.Count do //这段循环为什么要用8-Items.Count ，如果count>8呢？这与你下面说得要改变显示长度有什么关系？？
Items.Add('');

{改变列表项显示的长度，以便可以完全显示最长的字符串}

Perform(CB_SETDROPPEDWIDTH,Canvas.TextWidth(Items[IndexMaxWidth]+10,0);

[lxpbuaa]

这段循环的目的是在列表项不够8个时，填充空项至8个，这样看起来更为美观。没有其他意思，和改变显示宽度也没有关系。

————————————————————————————————————
宠辱不惊，看庭前花开花落，去留无意；毁誉由人，望天上云卷云舒，聚散任风。
————————————————————————————————————

[CSDNCTO2008]

接分