+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : شرح الحلقات مع المتغيرات في دلفي (/showthread.php?tid=4592)
شرح الحلقات مع المتغيرات في دلفي - the.abadour - 01-10-2012
السلام عليكم ورحمة الله وبركاته
شرح الحلقات مع المتغيرات في دلفي بمثال سهل أن شاء الله
سنقوم بأستخدام الحلقة While في المثال وبالطبع يمكن أستخدام الحلقة For أو الحلقة Repeat .
وسيكون شكل البرنامج في النهاية كالاتي :
delphi.loops.jpg (الحجم : 15.83 ك ب / التحميلات : 127)
نقوم بوضع أثنين Memo علي الفورم وأثنين زر Button , ونضغط علي الفورم مرتان للدخول الي صفحة كتابة الشفرة الخاصة بالفورم , ونكتب الاتي :
PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.Color := ClBlack ;
form1.Caption := 'Loops' ;
form1.ShowHint := true ;
form1.Hint := 'mahmoud marzok' ;
form1.AutoSize := true ;
form1.BorderWidth := 16 ;
memo1.Text := '';
memo2.Text := '';
button1.Caption := 'Start' ;
button2.Caption := 'FiLL' ;
memo1.Enabled := true ;
memo2.Enabled := true ;
end;
ثم نقوم بالضغط علي الزر الاول button1 مرتان للدخول الي صفحة كتابة الكود الخاص بالزر الاول :
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
x : integer ;
z : string ;
begin
z := memo1.Text ;
x := 0 ;
while x <= 10 do
begin
memo2.Lines.Add(z);
x := x + 1 ;
end;
end;
شرح الكود :
صرحنا عن متحولين المتحول X من النوع integer والمتحول Z من النوع String .
قمنا بأسناد قيم الــ Memo الاول ( memo1.text ) الي المتحول Z .
وقمنا بأسناد القيمة صفر الي المتحول X .
بدأنا الحلقة While وسيكون المتحول X بمقام عداد الحلقة التي جعنلناها من 0 الي 10 .
ثم نقوم بأضافة داخل الحلقة الي الـ Memo الثاني القيم التي بداخــل المتغير Z ( التي هي عبارة عن الـ Memo1.text ) .
ثم داخل الحلقة أيضا نقوم بأسناد القيمة واحد 1 الي المتغير X .
ثم نقوم بأغلاق الحلقة
أاذا أليكم ما سيحدث :
1 - الحلقة ستنفذ .
2- سيتم التحقق من شرط الحلقة بأن X أقل من أو يساوي واحد ( وبالطبع الشرط محقق لان X = صفر ) .
3- سيتم طباعة النص الموجود بالـ Memo رقم واحد ( المتغير Z ) بداخل الـ Memo رقم أثنين , من خلال الدالة Memo.lines.add ...
4- سيتم أاضافة واحد الي المتغير X ليصبح واحد ثم تكرر الحلقة مدام الشرط الحلقة و X أقل من او تساوي 10 .
في الأخير سؤال : كيف أضع بيدي علي البرنامج عدد التكرارات :confused:
يعني احدد اليوسر علي البرنامج عدد الدورات التي ستنفذها الحلقة ؟
شرح الحلقات مع المتغيرات في دلفي - karika2 - 23-07-2015
لعمل حلقة محدد من الافضل تستخدم for
كود :
[color=SeaGreen]karika:integer;[/color]كود :
var
x : integer ;
z : string ;
begin
z := memo1.Text ;
x := 0 ;
for karika:=0 to 4 do
if x <= 10 then
begin
memo2.Lines.Add(z);
x := x + 1 ;
end;