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

[birdhzx]

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

[gzlxt]

中间是否修改过st2呢？最好能把整段代码贴出来看看。

[dickeybird888]

没有啊！我实验过了，没有问题显示的结果为：
'240000000001#黎明#检查正常'

[sundayzhao]

没问题，你肯定作其他事情了。这么做不可能为空的。
你把两行代码之间的贴出了，大家参考。

[dickeybird888]

把全部的代码贴出来看看吧！

[jy_1201]

var
st2:string;
begin
st2:='0000000001#黎明#检查正常';
st2:=IntToStr(length(st2))+st2;
showmessage(st2);
end;

我这里正常啊，得到'240000000001#黎明#检查正常'

[飞翔的老虎]

看看代码，关于相关的st2的

[birdhzx]

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