Qrlabel显示问题？

TQuickReport2有两个公共变量：  
  source:   string;  
  strs:tstringlist;  
  在打印前strs:=tstringlist.create;    
  在打印后   strs.free;  
  strs已经得到文件里的所有字符。  
   
  现我要把strs显示在  
        QRLabel2（有五个Qrlabel）上，我是这么写的：  
  procedure   TQuickReport2.QRLabel2Print(sender:   TObject;   var   Value:   String);  
  var  
  i,k:integer;  
   
  begin  
    for   i:=0   to   strs.count-1   do   begin  
          k:=(i   mod   5);  
        case   (Sender   as   TQrlabel).Tag   of  
          0:   if   k=0   then   value   :=   strs[i];  
          1:   if   k=1   then   value   :=   strs[i];  
          2:   if   k=2   then   value   :=   strs[i];  
          3:   if   k=3   then   value   :=   strs[i];  
          4:   if   k=4   then   value   :=   strs[i];  
   
                end;  
    end;  
   
   
  结果预览时什么也没有！！不知问题出在哪了？  
  问题点数：20、回复次数：2Top

1 楼xiaoluzhu0420（小露珠）回复于 2005-01-05 10:03:27 得分 20

strs:tstringlist;  
  是全局变量吗Top

2 楼qhxhit（游侠）回复于 2005-01-06 18:34:57 得分 0

strs   是TQuickReport2   的   public   变量。  
  在   TQuickReport2窗体中都是有效地。Top

相关问题

• qrlabel
• tquickreport
• 变量
• tstringlist
• strs
• then value
• if k

• 帖主：qhxhit
• xiaoluzhu0420

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