如何創建數據感知型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

Answer 2

我知道存在一些商業成分，但我想學會做我。

然後看看Is there a data-aware tab control available?它處理多記錄數據集。