[DELPHI] 使用mod函数换行

今天需要打印一个标签，要求是3列，这就要求控制换行及X,Y坐标的变化。

最后经过努力实现了。

 1
 2procedure TForm1.Button3Click(Sender: TObject);
 3var
 4  i,j,k:Integer;
 5  x,y,m,n:Integer;
 6  str:string;
 7begin
 8  j:=0;   
 9  y:=30;    //-->
  x:=405;   //-->X坐标
  m:=340;   //-->列间隔
  n:=50;    //-->行间隔
Memo1.Clear;
for i:=0 to lst.Count-1 do
begin
  k:=i mod 3;
  if (i<>0) and (k=0) then
  begin
    j:=j+1;   //-->换行
  end;
str:='^FO'+inttostr(y+(k*m))+','+inttostr(x+(j*n))+'^A'+BCFONT1+',20,5^FD'+lst[i]+'^FS';
Memo1.Lines.Add(str);
end;

应该还有优化的地方。

注:mod函数示例

x mod y--->

0 mod 3 =0;

1 mod 3 =1;

2 mod 3 =2;

3 mod 3 =0;

总结:

x=0 ,结果为0

x<y,结果为x

x=y,结果为0

x>y,结果为余数