小票数据对齐问题

Question

商品编码  单价    数量 金额
2134343  10.00  1   10.00  
121  5.00  1  5.00
1311  8.00  2  16.00
14123  6.00  3  18.00
563211  7.00  6  42.00
165  4.00 2  8.00打印出来的小票如上面所示,商品编码长度是不固定的,所以会导致后面的数据对不齐,怎么才能对齐呢?我没有用打印控件,直接打印输出的.

Answer 1

 用format  函數格式化下，一般我們打小票都是這樣做的，這樣輸出才工整  for example:   Format('%6.2f',[qty]);

Answer 2

搞定了,刚才狂补了下FORMAT语法

Answer 3

先设置要打印的长度，不足的使用DupeString函数填充空格补全。
例如：
商品编码的最大字符数是16
那么补全后的字符是
SPBM := SPBM + DupeString（' ', 16 - Length(SPBM));
其他同理

Answer 4

修正代码
SPBM := SPBM + DupeString(' ', 16 - Length(SPBM));