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

من طرف **salme** السبت يناير 21, 2017 8:43 pm

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

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

الكود:: 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;

المصدر دلفي تعليم
delph.forumalgerie.net