+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ماهي طريقة ارسال Listview على دفعات (/showthread.php?tid=4675)
الصفحات:
1
2
ماهي طريقة ارسال Listview على دفعات - M_Mori2010 - 29-10-2012
مشكوووور اخي جاري التجربة
ماهي طريقة ارسال Listview على دفعات - M_Mori2010 - 29-10-2012
أخي الكريم كوست لم تنجح
ماهي طريقة ارسال Listview على دفعات - Agmcz - 29-10-2012
انا اعطيتك مثال لتأخذ فكرة عليه فقط
؟؟
ما الذي لم يعمل
ماهي طريقة ارسال Listview على دفعات - M_Mori2010 - 29-10-2012
اخي الكريم في جال التشغيل يقوم بأعطائي رسالة خطأ لو سمحت اكمل الكود الذي اضفتح في البداية وشكراً جزيلاً لك
الكود :
إقتباس :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 n:=0 to rom1.socket.activeconnections-1 do
begin
rom1.socket.connections[n].sendtext(utf8encode('*mr3*@'+all_name));
end;
ماهي طريقة ارسال Listview على دفعات - Agmcz - 29-10-2012
وضح أكثر؟؟
في أي حلقة تريد الارسال ب 25
ماهي طريقة ارسال Listview على دفعات - M_Mori2010 - 29-10-2012
شكراً اخي كوست الخطأ كان عدم انتباهي لـ X
الكود بعد التعديله :
PHP كود :
begin
r := lvl1.Items.Count-1;
repeat
if r > 24 then x := 24
else
x := r;
for i := 0 to x 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 n:=0 to rom1.Socket.ActiveConnections-1 do
rom1.Socket.Connections[n].SendText(utf8Encode('*Mr3*@'+all_name));
r := r - x;
until r = 0;
end;
ماهي طريقة ارسال Listview على دفعات - Agmcz - 29-10-2012
عموما
عوض
كود :
if r > 24 thenكود :
if r >= 24 thenماهي طريقة ارسال Listview على دفعات - sa7er100 - 29-10-2012
اخي M_Mori2010 لا داعي لعمل مثال قمت بالامر شكراا اضفت فاكشن ل عدم التكرار وكود للحذف الفارغ