打印问题,请高手指点.

Question

musicwind:你好！请你帮我吧！我非常着急。大虾，拜托了。我的EMAIL：LIUTAO8848·8848。NET。

Answer 1

var 
ChangeCount : integer; {变量计数}
Change : integer; {变量取值}
begin
  changecount := 0;
 {开始循环；循环的设定应参考你手上的程序}
 {正常输出一个数据}
 {在适当的位置输出}
  changecount := changecount + 1;
  if changecount = 320 then
  begin
    change := {一个新的值}
    changecount := 0;
  end;
  {循环结束}
end;根据你的描述，我想大概是这样吧。如果不行，麻烦在详细一点。

Answer 2

谢谢你COBI，不过我实在是不懂，因为我对DELPHI实在是属于门外汉，我再说清楚一点吧，我的打印程序是用来打号码的。在TXT文档中有几十万组数据，每组数据为20位。现在我的打印程序能把这些数据导入，并以十行十列每页100组的形式打印出来，但我想在每组数据下方添加一个四位数变量，这四位数变量必须在数据达到320XN组时变换一次。如下：
565677894512...................654799877898.............946794215465
46567899                       65467897                 321546554566（此为添加的四位数变量）   4656（320组后变换）      4652（320XN后又变了）