求DelPhi累加判断问题 ( 积分: 20 )

begin<br>&nbsp;&nbsp;e:=listbox3.Items.Strings&nbsp;+&nbsp;'&nbsp;as&nbsp;'&nbsp;+&nbsp;listbox2.Items.Strings;<br>&nbsp;&nbsp;for&nbsp;j:=0&nbsp;to&nbsp;listbox2.Count-1&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;&nbsp;listbox2.Count&gt;1&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;d:=&nbsp;',';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;d:=&nbsp;'';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;adoquery2.Next;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;e:=e&nbsp;+&nbsp;d&nbsp;;<br>end;<br>我想判断如果listbox2里如果超过1条(不包含1条)数据时,就&nbsp;&nbsp;e,&nbsp;但是在最后一条数据时后就不需要加&nbsp;,&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;如果只有一条那就直接显示&nbsp;&nbsp;e&nbsp;&nbsp;&nbsp;但是现在的问题就是能解决只有一条数据的问题,但如果是多条的话,就没有办法显示&nbsp;e:=listbox3.Items.Strings&nbsp;+&nbsp;'&nbsp;as&nbsp;'&nbsp;+&nbsp;listbox2.Items.Strings;&nbsp;&nbsp;求解决方法

这个循环没有任何用处。<br>&nbsp;for&nbsp;j:=0&nbsp;to&nbsp;listbox2.Count-1&nbsp;do<br>取消都会是一样的效果。你把这个循环需要执行的代码放入begin...end里面<br>&nbsp;for&nbsp;j:=0&nbsp;to&nbsp;listbox2.Count-1&nbsp;do<br>begin<br>&nbsp;&nbsp;你想执行的代码。<br>end;

for循环是有用的，并不一定要begin&nbsp;end;<br>&nbsp;&nbsp;for&nbsp;j:=0&nbsp;to&nbsp;listbox2.Count-1&nbsp;do<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;if&nbsp;&nbsp;listbox2.Count&gt;1&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;d:=&nbsp;',';<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;begin<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;d:=&nbsp;'';<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;<br>&nbsp;&nbsp;&nbsp;end;<br>上面这些begin&nbsp;end都可以不用<br>for&nbsp;j:=0&nbsp;to&nbsp;listbox2.Count-1&nbsp;do<br>&nbsp;&nbsp;if&nbsp;listbox2.Count&nbsp;&gt;&nbsp;1&nbsp;then<br>&nbsp;&nbsp;&nbsp;&nbsp;d:=&nbsp;','<br>&nbsp;&nbsp;else<br>&nbsp;&nbsp;&nbsp;&nbsp;d:=&nbsp;'';<br>不过就这段代码来看，for循环又是没用的，因为都是设置d的值，只是多执行几次下面的代码而已<br>if&nbsp;listbox2.Count&nbsp;&gt;&nbsp;1&nbsp;then<br>&nbsp;&nbsp;d:=&nbsp;','<br>else<br>&nbsp;&nbsp;d:=&nbsp;'';<br>就行了

我自己做出来了

ok