但在 t mod 6 <> 0 时 如何补足空行？？？？

Question

if MyConst<=list.count-1 then
       begin
          if QueryPrintVoucher.FieldByName('凭证号').AsInteger=strtoint(list.Strings[MyConst]) then
          begin
             QRLabel4.Caption:= QueryPrintVoucher.FieldByName('科目名').AsString;
             QRLabel5.Caption:= inttostr(QueryPrintVoucher.FieldByName('凭证号').AsInteger);
          end;
          t:=t+1;
          QRLabel6.Caption:= '记录数['+inttostr(t)+']';
          QueryPrintVoucher.Next;
       end;但在 t mod 6 <> 0 时 如何补足空行？？？？

Answer 1

你是用什么控件来显示凭证的?是打印输出时补空行，还是在屏幕显示时?