Question

DELphi 如何组合字符串

我现在有3个字符串.
有物料类别,物料品牌,物料规格
假如物料规格,不够4位数,就在前面加 '0',一般只有可能是4位,或者3位
然后我要自动生成物料编号,格式是:物料类别+物料品牌+物料规格
我该怎么写?我写成这样了.
var WLLB,WLPP,WLGG,WLBH :string
WLLB:=fieldbyname('WLLB').AsString;
WLPP:=fieldbyname('L_PPBH').AsString;
WLGG:=fieldbyname('WLGG').AsString;
else if(length(WLGG)=3) then
stuffstring(WLGG,1,0,'0');
接下去我就不知道怎么写了.

Answer 1

WLBH := StringOfChar('0', 4 - Length(WLLB)) + WLLB + StringOfChar('0', 4 - Length(WLPP)) + WLPP + StringOfChar('0', 4 - Length(WLGG)) + WLGG;