دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

كيفية استعمال الحلقات في دلفي

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كيفية استعمال الحلقات في دلفي

مُساهمة  mah11 في 18/7/2013, 8:00 pm

بسم الله الرحمن الرحيم
والصلاة السلام على سيدنا محمد وعلى آله وصحبه أجمعين

شرح كيفية استعمال الحلقات في دلفي


هذه الحلقة من أصغر قيمة الى أكبر قيمة

الحلقة for to do
الكود:

procedure TForm1.Button1Click(Sender: TObject); // delph.forumalgerie.net
var i: Integer; // delph.forumalgerie.net
begin
Memo1.Lines.Clear; // delph.forumalgerie.net
for i := 0 to 10 do
 Memo1.Lines.Add('هذه القيمة = '+IntToStr(i)); // delph.forumalgerie.net
end; // delph.forumalgerie.net

هذه الحلقة من أكبر قيمة الى أصغر قيمة

الحلقة for downto do
الكود:

procedure TForm1.Button1Click(Sender: TObject); // delph.forumalgerie.net
var i: Integer; // delph.forumalgerie.net
begin
Memo1.Lines.Clear; // delph.forumalgerie.net
for i := 10 downto 1 do
 Memo1.Lines.Add('هذه القيمة = '+IntToStr(i)); // delph.forumalgerie.net
end; // delph.forumalgerie.net



الحلقة While do
الكود:

procedure TForm1.Button2Click(Sender: TObject); // delph.forumalgerie.net
var i: Integer; // delph.forumalgerie.net
begin
Memo1.Lines.Clear; // delph.forumalgerie.net
i := 0; // delph.forumalgerie.net
While i <= 10 do
begin
 Memo1.Lines.Add('هذه القيمة = '+IntToStr(i));
 i := i + 1; // delph.forumalgerie.net
end; // delph.forumalgerie.net
end; // delph.forumalgerie.net

الحلقة repeat until
الكود:

procedure TForm1.Button3Click(Sender: TObject); // delph.forumalgerie.net
var i: Integer; // delph.forumalgerie.net
begin
Memo1.Lines.Clear; // delph.forumalgerie.net
i := 0; // delph.forumalgerie.net
repeat
 Memo1.Lines.Add('هذه القيمة = '+IntToStr(i));
 i := i + 1; // delph.forumalgerie.net
until i >= 10; // delph.forumalgerie.net
end; // delph.forumalgerie.net


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


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

mah11
Admin

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

http://delph.forumalgerie.net

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

رد: كيفية استعمال الحلقات في دلفي

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

بارك الله فيك

sdk11
مبرمج مجتهد

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

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

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


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