ماهي طريقة ارسال Listview على دفعات

[M_Mori2010]

مشكوووور اخي جاري التجربة

[M_Mori2010]

أخي الكريم كوست لم تنجح

[Agmcz]

انا اعطيتك مثال لتأخذ فكرة عليه فقط
؟؟
ما الذي لم يعمل

[M_Mori2010]

اخي الكريم في جال التشغيل يقوم بأعطائي رسالة خطأ لو سمحت اكمل الكود الذي اضفتح في البداية وشكراً جزيلاً لك

الكود :

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;

[Agmcz]

وضح أكثر؟؟
في أي حلقة تريد الارسال ب 25

[M_Mori2010]

شكراً اخي كوست الخطأ كان عدم انتباهي لـ 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; 


[Agmcz]

عموما
عوض

كود :

if r > 24 then

بـ

كود :

if r >= 24 then

و بالتوفيق

[sa7er100]

اخي M_Mori2010 لا داعي لعمل مثال قمت بالامر شكراا اضفت فاكشن ل عدم التكرار وكود للحذف الفارغ