delphi - 如何创建一个数据感知的TCheckListBox？

Question

在我的软件中，我使用的是标准TCheckListBox使其在应用程序代码中具有数据感知能力。

这是工作。当我想保存时，使用以下代码：

for i := 0 to clbGrp.Items.Count-1 do
begin
  if clbGrp.Checked[i] then grp:=grp+'1' else grp:=grp+'0';
end;

（ i : smallint;和 grp: string）

当我想显示表单时，可以使用以下代码：

var i:smallint;
begin
  for i := 0 to clbGrp.Items.Count-1 do clbGrp.Checked[i]:=False;
     for i := 0 to clbGrp.Items.Count-1 do
      begin
        clbGrp.Checked[i]:=StrToBool(Dm.TblFytFytGrup.AsString[i+1]);
      end;

这是问题所在。

我需要将此任务作为普通任务，并且我不想每次都在代码中这样做，就像那样扫描数据行。

因此，我想创建此组件的数据感知版本。

我该如何实现？

我知道这里有一些商业成分，但我想自己学习。

Answer 1

您可以使用此组件http://www.delphipages.com/records.cfm?kw=tdbchecklistbox或开始创建自己的组件-这是一个很好的教程，说明如何实现http://www.delphidabbler.com/tips/194