神啊，救救我吧(附源代码，在线等待～)

我想初始化一个CheckListBox,想让它与一个DBGrid关联。  
  其中每一个Item的值为DBGrid.Colums[i].Title.Caption+'['DBGrid.Colums[i].FieldName+']'  
  比如：  
  姓名   [name]  
  年龄   [age]  
  其中name，age为表的字段名。而DBGrid已经在DFM文件用Edting   DBGrid中设置好了字段  
  我写的函数是这样的：  
   
   
  procedure   InitClbItems(clb:TCheckListbox;dbg:TDBGrid);  
  var   i:integer;  
  begin  
      clb.Items.Clear   ;  
      with     dbg   do  
      begin  
              for   i:=0   to   Columns.Count-1   do  
          begin  
              clb.Items.Add(Format('%10s',[Columns[i].Title.Caption])+'['+Columns[i].FieldName+']');  
          end;  
      end;  
  end;  
   
   
  可是程序报异常啊～ 问题点数：0、回复次数：1Top

1 楼senble（好想学Java）回复于 2003-09-04 18:00:59 得分 0

把错误拿来看看Top

相关问题

• clb
• dbgrid
• colums
• dbg
• fieldname
• caption
• age
• columns
• do begin
• items

• 帖主：huangdoudou

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载