字符串小问题,帮忙解答一下,谢谢

Question

st2:='0000000001#黎明#检查正常';
        st2:=IntToStr(length(st2))+st2;
执行完后,st2怎么为空了????????????????????
我是想把长度加在字符串前面.

Answer 1

var
  st2:string;
begin
  st2:='0000000001#黎明#检查正常';
  st2:=IntToStr(length(st2))+st2;
  showmessage(st2);
end;我这里正常啊，得到'240000000001#黎明#检查正常'

Answer 2

是,我这里也正常了,
      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;
最近任务紧,所以没多调试就提问了.谢谢大家.
估计是系统不稳定..重新启动就好了.