[DELPHI] 使用mod函数换行

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

最后经过努力实现了。

Code
1

procedure TForm1.Button3Click(Sender: TObject);
3

var
4

i,j,k:Integer;
5

x,y,m,n:Integer;
6

str:string;
7

begin
8

j:=0;
9

y:=30; //-->
10

x:=405; //-->X坐标
11

m:=340; //-->列间隔
12

n:=50; //-->行间隔
13

Memo1.Clear;
14

for i:=0 to lst.Count-1 do
15

begin
16

k:=i mod 3;
17

if (i<>0) and (k=0) then
18

begin
19

j:=j+1; //-->换行
20

end;
21

str:='^FO'+inttostr(y+(k*m))+','+inttostr(x+(j*n))+'^A'+BCFONT1+',20,5^FD'+lst[i]+'^FS';
22

Memo1.Lines.Add(str);
23

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,结果为余数

转载于:https://www.cnblogs.com/moon25/archive/2009/04/02/1427680.html

[DELPHI] 使用mod函数换行相关推荐

Delphi调用外部程序函数：WinExec() 和ShellExecute详解
2019独角兽企业重金招聘Python工程师标准>>> Delphi调用外部程序函数:WinExec() 和ShellExecute详解 1,WinExec(): WinExec主要 ...
TVM/Relay 的 PartitionGraph()(mod) 函数讨论整理
TVM/Relay 的 PartitionGraph()(mod) 函数讨论整理 TVM/Relay 的图形分区功能.以下简单示例,错误信息. PartitionGraph() 函数指定图形是用带有 ...
python使用numpy的np.fmod函数计算numpy数组除以某一特定数值剩余的余数（remainder）、np.mod函数和np.fmod函数对负值的处理方式有差异
python使用numpy的np.fmod函数计算numpy数组除以某一特定数值剩余的余数(remainder).np.mod函数和np.fmod函数对负值的处理方式有差异目录
浅谈Delphi过程与函数02 - 零基础入门学习Delphi21
浅谈Delphi过程与函数02 让编程改变世界 Change the world by program 传值调用过程和函数的形参与实参之间既可以通过传值的方式传递,也可以通过传地址的方式传递. 例子 ...
matlab中的rem和mod,matlab的rem()和mod()函数
rem(x,y):求整除x/y的余数 mod(x,y):求模 rem(x,y)=x-y.*fix(x./y); (fix()向0取整) mod(x,y)=x-y.*floor(x./y); (floo ...
Delphi的四舍五入函数
Delphi的四舍五入函数一.四舍五入法四舍五入是一种应用非常广泛的近似计算方法,其有算术舍入法和银行家舍入法两种. 所谓算术舍入法,就是我们通常意义上的四舍五入法.其规则是:当舍 ...
mod php是什么意思,mod函数是什么意思
mod函数是一个求余函数,其格式为: mod(nExp1,nExp2),即是两个数值表达式作除法运算后的余数.特别注意:在EXCEL中,MOD函数是用于返回两数相除的余数,返回结果的符号与除数(div ...
delphi 纯虚函数的应用
delphi 纯虚函数的应用编程有时候会用到,有部分功能是未来实现的,具体做什么不知道.所以需要预留空间,当这类经常会用到,每一次都要重复上下文代码,把功能安置其中,这样非常麻烦.有没有一种方法,可 ...
delphi中move函数的用法
delphi中move函数的用法 -------------------------------------------------------------------------------- 20 ...
DELPHI日期时间函数(DateUtils单元)
原文出自:http://shao171.blog.163.com/blog/static/238397019201502011844293/ CompareDate 函数比较两个日期时间值日期部分 ...

[DELPHI] 使用mod函数换行

[DELPHI] 使用mod函数换行相关推荐

最新文章

热门文章