الذهاب الى السطر الموالي - نسخة قابلة للطباعة

الذهاب الى السطر الموالي - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : الذهاب الى السطر الموالي (/showthread.php?tid=4197)

الصفحات: 1 2 3

الذهاب الى السطر الموالي - Go-Now - 23-05-2012

شكرا الأن فهمت بعد أن قرأت على
302
200
403

شكرا لك أخي

الذهاب الى السطر الموالي - Go-Now - 25-05-2012

اخي كيف اعمل زر لايقاف العملية؟

الذهاب الى السطر الموالي - Agmcz - 25-05-2012

لا يمكن ايقافه الى بعمل خروج من الحلقة
اضف متغير boolean global

كود :
var
  stop: boolean;

واعطه قيمة false في البدا وادا اردت التوقف اعطه القيمة true

كود :
//button1
stop := false;
//button2 
stop := true;

مع اضافة في اخر الحلقة في الحدث on click

كود :
if stop then
  break;

وادا كنت تستعمل ثريد يكفي ايقافها

الذهاب الى السطر الموالي - Go-Now - 25-05-2012

حاب لما يجيب لوحة يتوقف

الذهاب الى السطر الموالي - Agmcz - 25-05-2012

ضع بعد السطر

كود :
Memo1.Lines.Add(URL + '/' + ListBox1.Items[i] + ' ' + '200 OK');

كود :
break;