Скачать: CL | DM;

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

← →
Змей ©   (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;
вот перед вставкой попробовал шоумессагу потыкавшись в них все заполняется как нада :(

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.047 c