填充ComBoBox中的内容

最新推荐文章于 2017-06-01 19:53:46 发布

weixin_30493321

最新推荐文章于 2017-06-01 19:53:46 发布

阅读量118

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/zsdentist/articles/1636917.html

本文提供了两种实用的方法，一种用于填充ComboBox控件，另一种用于填充ListBox控件。这两种方法都使用了Delphi语言，并通过数据库查询来获取填充项的内容。

填充ComBoBox中的内容function FullItemOfCB(aQry: TQuery; aFieldName: string; aCBObject: TComBoBox):
  string; //填充ComBoBox中的内容
begin
  aCBObject.Clear;
  aQry.First;
  while not aQry.Eof do
  begin
    aCBobject.Items.Add(aQry.FieldByName(aFieldName).AsString);
    aQry.Next;
  end;
end;

填充ListBox中的内容function FullItemOfLB(aQry: TQuery; aFieldName: string; aLBObject: TListBox):
  string; //填充ListBox中的内容
begin
  aLBObject.Clear;
  aQry.First;
  while not aQry.Eof do
  begin
    aLBObject.Items.Add(aQry.FieldByName(aFieldName).AsString);
    aQry.Next;
  end;
end;