كود او أمر للخروج من ال لووب loop ؟

[AL-MOB4RM3G]

السلام عليكم ورحمة الله

اخوآني الكرآم,,

هل هناك كود للخروج من اللّوب الذي انا فيه ممكن اضعه في الكود ؟ بارك الله لكم

مثآل على ما اقصد,,

هذا الكود,,

PHP كود :

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
var
  NewConIP: String;
  ListItemNum: Integer;
begin                                            // Begin The Main Procedure
ListItemNum := 0;                                // Reset Listbox Item to 0
NewConIP:= AContext.Binding.PeerIP;              // Get Client IP

for ListItemNum := 0 to Listbox1.Count - 1 do    // Begin loop to lisbox1.count - 1 (all connected Clients Ip:is)
begin
  if listbox1.Items[ListItemNum] = NewConIp then        // if the text of listbox items = new Connection ip then
  begin                                                 // Begin the first IF Sentence
    exit;                                               // if the ip was in the listbox then exit the loop;
  end                                                   // End First IF Sentence
    else
  begin

  end;
end;                                            // End the Loop

ListBox1.Items.Add(AContext.Binding.PeerIP);
end;                                             // End The Main Procedure 


هل الأمر exit يخرجني من الّوب ويتم تنفيذ الأمر

PHP كود :

ListBox1.Items.Add(AContext.Binding.PeerIP); 


اتذكر كان هناك موضوع في المنتدى عن ذلك والله اعلم لكن لم اجده ولله المستعان,

بارك الله لكم وجزآك خيرا,,

والسلام عليكم ورحمة الله

[musvc]

تتبع الكود بواسطة الضغط على f8
و اعرف الناتج بنفسك حتى تستفاد

اعتقد انه تم شرح كيفية التتبع في احد دروس الدورة

سلام

[AL-MOB4RM3G]

تتبع الكود بواسطة الضغط على f8
و اعرف الناتج بنفسك حتى تستفاد

سلام

هممم, نعم, هذا لو كنت اعلم كيف اتتبعه وكيف استخدم ال debugger

هل من طريقة اسهل ؟ بارك الله فيك :laugh:

او على الأقل,, ان تدلني كيف اتتبع بال F8

اعلم ان هذا يحتاج الى المعرفة الجيّدة بالهندسة العكسيّة,, لكنني لم اصل الى ذلك الحد بعد والل المستعان

وشكرا

[TF6M]

و عليكم السلام و رحمة الله و بركاته .
أخي AL-MOB4RM3G تابع فقط :

1- الأمر Exit # Halt للخروج من الإجراء كليا الفرق بينهما أن الـ Halt يحدد ExitCode + @LastError
2- الأمر Abort يختلف عن السابق أن التعليمة التي في الـ Except لـ Try تنفذ قبل الخروج .
3- الأن الحلقات هناك Continue / Break

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
Var
  I:Byte;
Begin
For I:= 0 To 5 Do
 Begin
 ShowMessage(IntToStr(I));
 If I = 3 Then
   Break;
 End;
ShowMessage('ExitLoop With I = '+IntToStr(I));
End; 


أو GoTo :

PHP كود :

procedure TForm1.Button1Click(Sender: TObject);
Var
  I:Byte;
Label
  Cont;
Begin
For I:= 0 To 5 Do
 Begin
 ShowMessage(IntToStr(I));
 If I = 3 Then
   GoTo Cont;
 End;
Cont:ShowMessage('ExitLoop With I = '+IntToStr(I));
End; 


و الأمر Continue بالطبع عكس Break :laugh:.

بالتوفيق ,,

[AL-MOB4RM3G]

اعتقد انه تم شرح كيفية التتبع في احد دروس الدورة

سلام

نعم في الدرس الذي يشرح فيه كتآبة الفونكشن,, لكن مع ذلك,,
لا اعرف كيف استخمه في حآلتي,,

يعني اين اضع مثلا نقطة التوقف ؟

هل عند

PHP كود :

exit; 


[AL-MOB4RM3G]

اها,, شكرا كثيرا اخي الكريم,,

وشكرا للأخ musvc ايضى,,

بارك الله فيكم