提问

Question

如果在一个窗体上有多个的ComboBox，比如从ComboBox1到ComboBox20等等，可能更长，而我要对每一个的ComboBox进行初始话，如果我一个一个的写出来那样就比较麻烦了，用一个for语句把每一个都初始化，怎么写啊？怎样在TMainMenu中添加分隔线啊？程序做好了怎样打包，生成执行文件？

Answer 1

第一个问题
TComboBox(FindComponent(ComboBox+inttostr(你的序号))).clear;就可以了添加分隔线其实就是把子菜单的caption设为'-'程序做好了就编译就行成可执行文件了，打包的话。delphi有自带的installshield可以用，也可以用其他工具

Answer 2

var
  I: Integer;
begin
  for I := 0 to form1.Componentcount - 1 do
  begin
    if Form1.Components[I] is TComboBox then
       TComboBox(Form1.Components[I]).Text := 'Test';
  end;end;