02-09-2012, 08:21 PM
السلآم عليكم ورحمة الله وبركاته ..
ماهو الخطأ في هذا الكود حيث انني آْرٍيٍدْ ارسال جميع Item من Listview عن طريق Socket
جزاكم الله كل خير
ماهو الخطأ في هذا الكود حيث انني آْرٍيٍدْ ارسال جميع 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;جزاكم الله كل خير
اللهمّ إنّي ظلمت نفسي ظلماً كثيراً ولا يغفر الذّنوب إلا أنت
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم
فاغفر لي مغفرة من عندك وارحمني إنّك أنت الغفور الرّحيم