问题是这样: 我有一个字段中 都是以 1000 开头,后面 再加 5位数, 例100012345 我在edit控件,输入一个值, 如: 234 。 查找的结果为 100000234,
如: 7654 查找的结果为 100007654, 都是以1000 开头 后面加五位数。。 不够五位的补零 ,然后对这条数据进行查询;
如: 7654 查找的结果为 100007654, 都是以1000 开头 后面加五位数。。 不够五位的补零 ,然后对这条数据进行查询;
{Function :为给定值前补零,个数为(SUMNO-NO).
Params :SumNo:等返回的字符串长度;No:待被零的数值.EG:SUMNO=3,NO=1则返回'001'
Result : 被零后的数值字符串(长度=SumNo)
}
function AddZero(SumNo,No:integer):string;
var i,zero:integer; s:string;
begin
s:='';
zero:=SumNo-length(inttostr(No));
for i:=0 to zero -1 do begin
s:=s+'0';
end;
result:=s+inttostr(no);
end;