كيفية مناداة الاجراء لنفسه
صفحة 1 من اصل 1 • شاطر
كيفية مناداة الاجراء لنفسه
كيفية مناداة الاجراء لنفسه
طريقة أو كيفية مناداة الاجراء لنفسه كحلقة دوارة
بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله
كيفية مناداة الاجراء لنفسه
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;
طريقة أو كيفية مناداة الاجراء لنفسه كحلقة دوارة
بسم الله الرحمن الرحيم
والصلاة والسلام على أشرف المرسلين سيدنا محمد صلى الله عليه وسلم وعلى آله وصحبه أجمعين
الحمد لله نحمده ونستغفره ونعوذ بالله من شرور انفسنا وسيئات اعمالنا
وأشهد أن لا إله إلا الله وحده لا شريك له وأشهد أن محمدا عبده ورسوله
كيفية مناداة الاجراء لنفسه
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;
مواضيع مماثلة
» كيفية تغيير التاريخ والوقت بواسطة برنامج -delphi-
» شرح كيفية استعمال شرط بدلفي
» كيفية نطق كلمة أو جملة في الدلفي
» شرح كيفية استعمال الحلقات في دلفي
» كيفية انشاء أليا alias أو اسم مستعار
» شرح كيفية استعمال شرط بدلفي
» كيفية نطق كلمة أو جملة في الدلفي
» شرح كيفية استعمال الحلقات في دلفي
» كيفية انشاء أليا alias أو اسم مستعار
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى