动态从dbgrid向combobox中添加列名.txt

来自「是一部详细介绍了DELPHI的经典著作」· 文本 代码 · 共 9 行

动态从dbgrid向combobox中添加列名
procedure Tmainfrm.list_addinfo(var c:tcombobox);
var i:integer;
begin
 c.items.clear;
 for i:=0 to dbgrid1.columns.count-1 do
  c.items.add(dbgrid1.columns.items[i].fieldname);
  c.itemindex:=0;
end;