新人求助，加法问题，谢谢！

Question

InvoiceStartNo:=EdtBlankStart.Text;
TempNo:=IntToStr(StartINVNo+INVNumber-1);
InvoiceEndNo:=Copy('00000000',1,8-Length(tempNo))+tempNo;
InvoiceStartNo为发票起始发票号码，StartINVNo为发票起始号码，INVNumber为发票数量，InvoiceEndNo，为计算的发票终止号码。这里是把发票号码定死了是8位，现在要该一下这边的程序，把它变成10位之内的，怎么做？还请各位达人帮忙，请说的具体点，因为是新人。

Answer 1

嗯，谢谢这位大哥，打个比方，发票起始号码是00000001，严格的8位的！发票数量是30个，那么InvoiceStartNo＝00000001，TempNo＝IntToStr（00000001＋30－1），那么InvoiceEndNo经过计算就应该是00000030，现在要求变了，发票号码可能不是8位的，是10位以内的，那么原先的计算方法就不对了，现在是问怎么计算！谢谢。

Answer 2

InvoiceStartNo:=EdtBlankStart.Text;
TempNo:=IntToStr(StartINVNo+INVNumber-1);
InvoiceEndNo:=Copy('0000000000',1,10-Length(tempNo))+tempNo;
InvoiceStartNo为发票起始发票号码，StartINVNo为发票起始号码，INVNumber为发票数量，InvoiceEndNo，为计算的发票终止号码。這樣不就可以了嗎?