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

[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:.

بالتوفيق ,,