29-10-2012, 07:45 PM
الصفحات : 1 2
29-10-2012, 07:52 PM
أخي الكريم كوست لم تنجح
29-10-2012, 08:10 PM
انا اعطيتك مثال لتأخذ فكرة عليه فقط
؟؟
ما الذي لم يعمل
؟؟
ما الذي لم يعمل
29-10-2012, 08:27 PM
اخي الكريم في جال التشغيل يقوم بأعطائي رسالة خطأ لو سمحت اكمل الكود الذي اضفتح في البداية وشكراً جزيلاً لك
الكود :
الكود :
إقتباس :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;
29-10-2012, 08:53 PM
وضح أكثر؟؟
في أي حلقة تريد الارسال ب 25
في أي حلقة تريد الارسال ب 25
29-10-2012, 09:34 PM
شكراً اخي كوست الخطأ كان عدم انتباهي لـ 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;
29-10-2012, 09:37 PM
عموما
عوض
بـ
و بالتوفيق
عوض
كود :
if r > 24 thenكود :
if r >= 24 then29-10-2012, 11:10 PM
اخي M_Mori2010 لا داعي لعمل مثال قمت بالامر شكراا اضفت فاكشن ل عدم التكرار وكود للحذف الفارغ
الصفحات : 1 2