如何实现：把从数据库中查找出的同一字段的5个记录分别赋值给5个CHECKBOX.CAPTION

Question

如何实现：把从数据库中查找出的同一字段的5个记录分别赋值给5个CHECKBOX.CAPTION

Answer 1

dataset.first;
for i:=1 to 5 do
begin
  if i=1 then CHECKBOX1.CAPTION=dataset.fieldbyname('field').value;
  if i=2 then CHECKBOX2.CAPTION=dataset.fieldbyname('field').value;
  if i=3 then CHECKBOX3.CAPTION=dataset.fieldbyname('field').value;
  if i=4 then CHECKBOX4.CAPTION=dataset.fieldbyname('field').value;
  if i=5 then CHECKBOX5.CAPTION=dataset.fieldbyname('field').value;
  dataset.next;
end;

Answer 2

如果你确定你要查找是这五条记录的话,你可以使用:
const
  Name='checkbox';  
var
   i:integer;
  begin
    i:=1;
  table1.first;
  while i<=5 and not table1.eof do 
    begin
       Tcheckbox(findcomponent(name+inttostr(i))).caption:=table1.fieldbyname('字段名').asstring;
       i:=i+1;
       table1.next;
    end;