为什么会这样 ，有哪位大虾告诉我？ ( 积分: 50 )

机

机机

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-29

• #1

发送方ClientSocket1的listbox1里是这样排列
1
2
3
N
发送代码：
for i:=0 to listbox1.Items.Count-1 do
cs.Socket.SendText(listbox2.Items+'*');

接收方ServerSocket1的listbox1里这样排列
结果：
2
3
N
为什么前面的1没有了
代码：
listbox1.Clear;
for i:=1 to Length(str)do
if str<>'*' then s:=s+str
else
begin
ListBox1.Items.Append(s);
s:='';
end;

 

机

机机

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-29

• #2

发送方ClientSocket1的listbox1里是这样排列
1
2
3
N
发送代码：
for i:=0 to listbox1.Items.Count-1 do
cs.Socket.SendText(listbox2.Items+'*');

接收方ServerSocket1的listbox1里这样排列
结果：
2
3
N
为什么前面的1没有了
代码：
listbox1.Clear;
for i:=1 to Length(str)do
if str<>'*' then s:=s+str
else
begin
ListBox1.Items.Append(s);
s:='';
end;

 

机

机机

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-29

• #3

我把接收方的代码改成
listbox1.items.add(str);
listbox1的结果为：
1
2*3*N*

 

K

kgm

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-29

• #4

for i:=0 to Length(str)-1 do

 

机

机机

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-29

• #5

代码是本机运行没有错，但一到网络上就不行

 

G

Genl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-29

• #6

for i:=0 to listbox1.Items.Count-1 do <---------ListBox1???
cs.Socket.SendText(listbox2.Items+'*'); <---------ListBox2???

 

机

机机

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-11-29

• #7

因为代码不是复制的
那是我打错了
好烦啊，就没人知道吗？