delphi一段代码
发布网友
发布时间：2024-10-22 06:04
共2个回答
热心网友
时间：2024-11-16 07:54
这段代码是有问题的，但主要意思是自动生成代码s000002，s000003。。。。
如此。
但是这样的代码如果到了第是个的话就会变成s0000010，多出一位，到了s00000100，多出两位。
如果是我，我会这样操作：
这是我用过的一段代码，xsbh十一哥变量，可以赋值给adoquery1.fieldbyname('')
adoquery1.Last;
if adoquery1.RecordCount=0 then
xsbh:='S'+formatfloat('00000',1)
else xsbh:='S'+formatfloat('00000',strtoint(copy(adoquery1.Fields[0].AsString,2,5))+1);
热心网友
时间：2024-11-16 07:54
database可能是个dataModual也可能是个窗体，ADO_KHXX是一个Tadoquery,这句话是把database上的ADO_KHXX的khxxid字断的值赋为s+'00000'+inttostr(i);
