十万火急！怎样使单据号自动加1？将尽我所能给分！

Question

例如你取出了最大值存放在MAXVALUE（string）中，可以做如下处理：var
  Max : integer;Max := strtoint(MaxValue) + 1;
MaxValue := inttostr(Max);case length(MaxValue) of
  1: MaxValue:='0000' + Maxvalue;
  2: MaxValue:='000' + Maxvalue;
  3: MaxValue:='00'+Maxvalue;
  4: MaxValue:='0'+Maxvalue;
  5: MaxValue:=Maxvalue;
end; 
edit_djbh.text:=MaxValue;

Answer 1

是很早写的了呵呵但可以用
function tdata1.makefphm(s :string):string;
var s2 : string;
    i: integer;
begin
i:=StrToInt(s);
s2:=IntToStr(i+1);
s2:=Copy('0000000',1,7-Length(IntToStr(StrToInt(s)+1)))+s2;
result:=s2;
end;

Answer 2

lxl和CIBO兄谢谢你们,我在系统功能中-我的问题中点击进入后不能给分.但是以前可以.告诉我应该怎样给你们分!谢谢你们二位了.

Answer 3

lxl兄,谢谢你请告诉我如何给分!我进系统功能中不太好用