كيفية مناداة الاجراء لنفسه
2 مشترك
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
كيفية مناداة الاجراء لنفسه
بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله
كيفية مناداة الاجراء لنفسه
منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله
كيفية مناداة الاجراء لنفسه
- الكود:
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 مرات (السبب : تصحيح بعض المعلومات)
رد: كيفية مناداة الاجراء لنفسه
بارك الله فيك
sdk11- مبرمج مجتهد
- عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014
مواضيع مماثلة
» كيفية ربط -Excel- مع -Delphi -
» كيفية جمع عددين في بيزك
» كيفية حذف ملف ببرنامج دلفي
» كيفية ربط Excel مع Delphi
» كيفية فتح مشروع موجود
» كيفية جمع عددين في بيزك
» كيفية حذف ملف ببرنامج دلفي
» كيفية ربط Excel مع Delphi
» كيفية فتح مشروع موجود
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى