私のソフトウェアで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;
これが問題です。
このタスクは一般的なものとして必要であり、そのようなデータ行をスキャンするたびにコードで実行したくありません。
そこで、このコンポーネントのデータベース対応バージョンを作成したいと考えています。
どうすればこれを達成できますか?
いくつかの商用コンポーネントがあることは知っていますが、自分でそれを行うことを学びたいです。