yourquery.first; for i:=0 to yourquery.recordcount do begin j:=length(yourquery.fieldbyname('name').asstring)+length(yourquery.fieldbyname('item').asstring); if j>24 then begin for k:=0 to (24-length(yourquery.fieldbyname('name').asstring)) do begin blanknum:=blanknum+' '; //这个是空格 end end else blanknum:=''; yourquery.edit; yourquery.fieldbyname('pmgg').asstring:=yourquery.fieldbyname('name').asstring+blanknum+yourquery.fieldbyname('item').asstring; //这个是计算字段 yourquery.next; end;
顺便说一下,我在fr的memo的脚本中想写一些代码,但是又不许我声明变量,不知如何是好!拜托各位大侠一定要帮帮忙,顺便给出源码,小弟万分感谢!!(分不够,偶再开贴送)
2、不知道你要写代码实现什么功能?
我知道那个可以分页
但那个东西分页不会自动切断,也就是说当品名长度<24而品名+规格>24时,规格就会断开,不好判断!
1.5M新豪华无裙浴缸CP
-1550我想实现的是这种情况:
1.5M新豪华无裙浴缸
CP-1550
敬候佳音
1、品名+空格+规格
2、规格里不要有空格 (重点!)
3、Stretch:=True;
4、WordWrap:=True; (默认就是True)
for i:=0 to yourquery.recordcount do begin
j:=length(yourquery.fieldbyname('name').asstring)+length(yourquery.fieldbyname('item').asstring);
if j>24 then begin
for k:=0 to (24-length(yourquery.fieldbyname('name').asstring)) do begin
blanknum:=blanknum+' '; //这个是空格
end
end
else
blanknum:='';
yourquery.edit;
yourquery.fieldbyname('pmgg').asstring:=yourquery.fieldbyname('name').asstring+blanknum+yourquery.fieldbyname('item').asstring; //这个是计算字段
yourquery.next;
end;