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

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

2 مشترك

اذهب الى الأسفل

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

مُساهمة  mah11 20/7/2013, 7:23 pm

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


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


الكود:

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

الكود:

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


منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net



عدل سابقا من قبل mah11 في 24/5/2015, 2:31 pm عدل 1 مرات (السبب : تصحيح بعض المعلومات)

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

https://delph.forumalgerie.net

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

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

مُساهمة  sdk11 13/6/2015, 12:12 am

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014

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

الرجوع الى أعلى الصفحة

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

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