الذهاب الى السطر الموالي

[Go-Now]

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

شكرا لك أخي

[Go-Now]

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

[Agmcz]

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

كود :

var stop: boolean;

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

كود :

//button1 stop := false; //button2 stop := true;

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

كود :

if stop then break;

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

[Go-Now]

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

[Agmcz]

ضع بعد السطر

كود :

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

كود :

break;