用空格将字符串格开，我做错了什么？

[jiangjian0427]

我想将类似 “num=”的字符转化为“num =”，不能用stringreplace的函数，现在返回的值是第一个“=”前面的string，请问我错在那里？：

var s,s1,s2:string
cuti:integer;
s:='.............';//赋值

cuti:=4;
s1:=s;
s2:='';
while(cuti>1) do
begin
cuti:=pos('=',s1);
if(cuti>1) then
begin
if(s1[cuti-1]<>' ') then
begin
s2:=s2+copy(s1,1,cuti-1)+' ';
s1:=copy(s1,cuti,length(s1)-cuti);
end;
end
else
break;
end;
s:=s2;

[Cipherliu]

'.............';//赋值
其中有'='吗?

[goldhawk_2000]

最后是不是该s:=s2+s1啊!
如果是这样的字符串 asd =dff=ddd

这个程序的结果是什么,第二个执行不到吧

[shuyi]

如果你想把num=全部替换成num =就用s:=AnsiReplaceStr(s,'num=','num =');
搞这么复杂干什么?

[zhangnan623]

你用WHILE循环，程序错了，你细细看看,因为
s2:=s2+copy(s1,1,cuti-1)+' ';在S2前边还有个空格，所以S2得用Trim(s2)一下
如果只想得到num则：
cuti:=4;
s1:=s;
s2:='';
cuti:=pos('=',s1);
if(cuti>1) then
begin
if(s1[cuti-1]<>' ') then
begin
s2:=s2+copy(s1,1,cuti-1)+' ';
end;
end
s:=Trim(s2);

[jiangjian0427]

说过了 不能用stringreplace的函数
像“>=” 就不用分了所以一定要检查一下，请看一下条件