delphi4arab منتديات دلفي للعرب

السلآم عليكم ورحمة الله وبركاته ..
ماهو الخطأ في هذا الكود حيث انني آْرٍيٍدْ ارسال جميع Item من Listview عن طريق Socket

كود :
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];
    end;
    for i := 0 to lvl1.Items.Count - 1 do
    begin
         rom1.Socket.Connections[i].SendText('*Mr2*@'+all_name);
    end;
      end;
end;
end;

جزاكم الله كل خير

السلام عليكم
يمكن ان يكون الخطأ بالتصريح بالنسبة للمتغيرات Var مع بعضها وهذا بالنسبة ل String
لا تقسمها على اثنين بل اجمعها مع بعضها

الخطأ وضاح اخي يجب ان يكون كل شيئ داخل ال 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; 

شكراً لكم بعد عناء طويل وبعد تصحيح الكود كان الخطاً هو اني قمت بترك أحد Item فارغ

جزاكم الله كل خير اخوتي

M_Mori2010

nebchadelphi

S.FATEH

M_Mori2010