منتدى متعدد المهام

منتدى متعدد المهام في عدة مجالات
 
الرئيسية  البوابةالبوابة  التسجيلالتسجيل  دخولدخول  

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
ben taib allaa



عدد المساهمات : 64
نقاط : 182
تاريخ التسجيل : 28/04/2015
الموقع : http://delph.forumalgerie.net

مُساهمةموضوع: كيفية مناداة الاجراء لنفسه   الخميس أكتوبر 20, 2016 7:26 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;
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://delph.forumalgerie.net
sabire



عدد المساهمات : 75
نقاط : 77
تاريخ التسجيل : 30/09/2016

مُساهمةموضوع: رد: كيفية مناداة الاجراء لنفسه   الإثنين أكتوبر 24, 2016 4:44 pm

شكراااااااااااااا
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
كيفية مناداة الاجراء لنفسه
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى متعدد المهام :: منتديات عالم الحواسيب الشخصية :: تعلم البرمجة باللغة الدلفي-
انتقل الى: