поочередная вставка

← →
Змей © (2004-11-28 02:33) [0]

хелп плиз! вот с сервера на socketclient приходит список из такого же listview ну т.е. строчки 1,2,3
а не получается чтобы они на клиенте вставлялись так же как и на сервере вставляется только последняя строка
не могу догнать почему:

if Copy(s2,1,2) ="#U" then
begin
Delete(s2,1,2);
for i:=1 to 35 do
t[i]:=GetSubStr(Copy(s2,1,Pos(";",s2)-1)," ",i);
for i:=1 to 35 do
st:=st+IntTostr(i)+" "+t[i]+#13;
listview1.Clear;
while Pos(";",s2) > 0 do
begin
// showmessage(s2);
with listview1.items.add do
caption := s2;
delete(s2,1,Pos(";",s2));
end;

end;

воть посылаю с socketserver:
for i := 0 to listview.Items.Count-1 do

s:="#U"+listview.Items[i].Caption;
for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do

ServerSocket1.Socket.Connections[i].SendText(s);
exit;

← →
Змей © (2004-11-28 02:50) [1]

while Pos(";",s2) > 0 do
begin
showmessage(s2);
with listview1.items.add do
caption := s2;
вот перед вставкой попробовал шоумессагу потыкавшись в них все заполняется как нада :(

поочередная вставка Найти похожие ветки