поочередная вставка [D6, WinXP]
Змей © (2004-11-28 02:33:00)
хелп плиз! вот с сервера на 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:00) [1]
while Pos(';',s2) > 0 do
begin
showmessage(s2);
with listview1.items.add do
caption := s2;
вот перед вставкой попробовал шоумессагу потыкавшись в них
все заполняется как нада :(
Наверх 
ЧАТ |
Орешник |
|
