+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كود او أمر للخروج من ال لووب loop ؟ (/showthread.php?tid=1234)
كود او أمر للخروج من ال لووب loop ؟ - AL-MOB4RM3G - 27-09-2009
السلام عليكم ورحمة الله
اخوآني الكرآم,,
هل هناك كود للخروج من اللّوب الذي انا فيه ممكن اضعه في الكود ؟ بارك الله لكم
مثآل على ما اقصد,,
هذا الكود,,
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);
اتذكر كان هناك موضوع في المنتدى عن ذلك والله اعلم لكن لم اجده ولله المستعان,
بارك الله لكم وجزآك خيرا,,
والسلام عليكم ورحمة الله
كود او أمر للخروج من ال لووب loop ؟ - musvc - 27-09-2009
تتبع الكود بواسطة الضغط على f8
و اعرف الناتج بنفسك حتى تستفاد
اعتقد انه تم شرح كيفية التتبع في احد دروس الدورة
سلام
كود او أمر للخروج من ال لووب loop ؟ - AL-MOB4RM3G - 27-09-2009
musvc كتب :تتبع الكود بواسطة الضغط على f8
و اعرف الناتج بنفسك حتى تستفاد
سلام
هممم, نعم, هذا لو كنت اعلم كيف اتتبعه وكيف استخدم ال debugger
هل من طريقة اسهل ؟ بارك الله فيك :laugh:
او على الأقل,, ان تدلني كيف اتتبع بال F8
اعلم ان هذا يحتاج الى المعرفة الجيّدة بالهندسة العكسيّة,, لكنني لم اصل الى ذلك الحد بعد والل المستعان
وشكرا
كود او أمر للخروج من ال لووب loop ؟ - TF6M - 27-09-2009
و عليكم السلام و رحمة الله و بركاته .
أخي 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:.
بالتوفيق ,,
كود او أمر للخروج من ال لووب loop ؟ - AL-MOB4RM3G - 27-09-2009
musvc كتب :اعتقد انه تم شرح كيفية التتبع في احد دروس الدورة
سلام
نعم في الدرس الذي يشرح فيه كتآبة الفونكشن,, لكن مع ذلك,,
لا اعرف كيف استخمه في حآلتي,,
يعني اين اضع مثلا نقطة التوقف ؟
هل عند
PHP كود :
exit;
كود او أمر للخروج من ال لووب loop ؟ - AL-MOB4RM3G - 27-09-2009
اها,, شكرا كثيرا اخي الكريم,,
وشكرا للأخ musvc ايضى,,
بارك الله فيكم