ارسال جميع Item من Listview عن طريق Socket

[S.FATEH]

الخطأ وضاح اخي يجب ان يكون كل شيئ داخل ال loop
انت خرجت من الحلقة ثم انشئت حلقة و و ...الاصح

PHP كود :

procedure TForm10.Rom1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var   s,str,name,nei_rong:string;
      i,n:integer;
      all_name,ni_cheng:string;
      newitem:TListItem;
begin
   s:=Socket.ReceiveText;
   n:=pos('@',s);
   if n>0 then
   begin
      str:=copy(s,1,n-1);
      if str='*Mr2*' then
      begin
        for i := 0 to lvl1.Items.Count - 1 do
        begin
          all_name:=all_name+lvl1.Items[i].Caption +'*|'+lvl1.Items[i].subitems[0]+'^*'+lvl1.Items[i].subitems[1]+'&^'+lvl1.Items[i].subitems[2]+'%*'+lvl1.Items[i].subitems[9]+'!@'+lvl1.Items[i].subitems[6];
          rom1.Socket.Connections[i].SendText('*Mr2*@'+all_name);
        end;
      end;
    end;
end;