是,我这里也正常了,
if length(patBaseInf)+3<10 then//1->001
begin
patBaseInf:='0'+'0'+IntToStr(length(patBaseInf)+3)+patBaseInf;
end;
if length(patBaseInf)+3<100 then//11->011
begin
patBaseInf:='0'+IntToStr(length(patBaseInf)+3)+patBaseInf;
end;
最近任务紧,所以没多调试就提问了.谢谢大家.
估计是系统不稳定..重新启动就好了.