InvoiceStartNo:=EdtBlankStart.Text;
TempNo:=IntToStr(StartINVNo+INVNumber-1);
InvoiceEndNo:=Copy('00000000',1,8-Length(tempNo))+tempNo;现在的invoiceno是8位的,知道了invnumber,也就是数量,算出InvoiceEndNo,现在要求是invoiceno
位数是10位之内,该怎么求?谢谢大家!我是新人,表笑我!
TempNo:=IntToStr(StartINVNo+INVNumber-1);
InvoiceEndNo:=Copy('00000000',1,8-Length(tempNo))+tempNo;现在的invoiceno是8位的,知道了invnumber,也就是数量,算出InvoiceEndNo,现在要求是invoiceno
位数是10位之内,该怎么求?谢谢大家!我是新人,表笑我!
解决方案 »
- FastReprt想使用页眉,不是表头(pageHeader),有没有
- 创建文件目录报错,麻烦帮我看看
- Dbgrideh怎么实现下拉框的智能输入功能?
- 如何動態設置添加DBGrid的Column???
- ★《Delphi5 开发人员指南》上的一个错误(非印刷错误),请各位明察!(您有何想法?)
- 请高手指点以下如何将TXT转换成为HTML
- 麻烦哪 位兄台给我一段用SQL进行日期查询的代码吧
- 怎样才能知道,网页的大小,不是下载保存,而是直接获取网页的属性,小弟是菜鸟,请高手相助
- 请教兄弟们一个有关SQL的问题!(50分)
- 怎么样对串行口编程???哪有现成的控件??
- ado 问题请教
- 各位是否考虑过这个问题:用Media Player控件可否播放我自己定义的文件流格式。如果可以应该如何做呢?
因为InvoiceStartNo和InvoiceEndNo都是8位的,所以用上边的计算可以,但是现在改成10位之内了,该怎么做?
StartINVNo又是什么呢?
可以吗?
// FillZero(): To use the specified length to complete a string with a
// parameter value;
// For example: (1) AValue = 3, ALength = 5,
// and the function result will be '00003';
// (2) AValue = 11, ALength = 2, Result = '11';function FillZero(AValue: Integer; ALength: Integer): string;
var
i: Integer;
begin
Result := IntToStr(AValue);
for i := ALength downto Length(Result) + 1 do
Result := '0' + Result;
end;