منتديات أهل الجزائر
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

كيفية مناداة الاجراء لنفسه

استعرض الموضوع التالي استعرض الموضوع السابق اذهب الى الأسفل

كيفية مناداة الاجراء لنفسه Empty كيفية مناداة الاجراء لنفسه

مُساهمة  alla23 الثلاثاء أكتوبر 25, 2016 10:11 am

كيفية مناداة الاجراء لنفسه
طريقة أو كيفية مناداة الاجراء لنفسه كحلقة دوارة

بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله


كيفية مناداة الاجراء لنفسه


var i : integer;
procedure boucle_proc(i : integer);
begin
 if i = 0 then Form1.Memo1.Lines.Add('بـداية حلقة تكرارية')
 else
 begin
 boucle_proc(i-1); { يتم انقاص المتغيير بواحد في كل مرة حتى يصل الى صفر }
 Form1.Memo1.Lines.Add(IntToStr(i));
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 i:=20; // القيمة التي تعطى للمتغيير في البداية
 boucle_proc(i);
end;
alla23
alla23
عضو ماسي
عضو ماسي

عدد المساهمات : 82
نقاط : 212
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع التالي استعرض الموضوع السابق الرجوع الى أعلى الصفحة

- مواضيع مماثلة

صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى