+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : شرح برنامج أستخدام المتغيرات مع العناصر مع الحلقات (/showthread.php?tid=5162)
شرح برنامج أستخدام المتغيرات مع العناصر مع الحلقات - mahmoud2hack - 24-04-2013
السلام عليكم ورحمة الله وبركاته
برنامج بسيط لشرح الحلقات مع المتغيرات بطريقة مفصلة وسهلة , تتيح للمبتدأ تعلمهم الاثنين معا . الطبع بعد موضوعي الاول
الذي طرحت به سؤال , الحمد لله قد علمت الاجابة وسأطبقها في هذا الشرح ::::
نبدأ بأذن الله :
هذا شكل البرنامج النهائي بأذن الله :
كود :
http://www12.0zz0.com/2013/04/24/21/264120506.pngنقوم بفتح فورم جديد . ونضع عليه أثنان EDIT و MEMO و ثلاث أزرار BUTTON
ليكون شكل البرنامج كالسابق , ثم نضغط علي الفورم مرتان للدخول الي صفحة كتابة الكود , ونكتب :
PHP كود :
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.AutoSize := true ;
form1.AutoScroll := false ;
form1.BorderWidth := 20 ;
form1.Caption := 'Loops';
form1.ShowHint := true ;
form1.Hint := 'MarzOoOK';
form1.Color := clGray ;
edit1.Text := '3';
edit2.Text := 'Write Your Words That Will Repeat';
memo1.Text := '';
memo1.Enabled := false ;
button1.Caption := 'START';
button2.Caption := 'FiLL';
button3.Caption := 'EXIT';
end;
بالطبع تلك هي خصائص الفورم والعناصر الموجودة عليه ... أي حجم الفورم والمساحة التلقائية وعنواين العناصر وأظهار التلميحات وهكذا , مجرد خصائص
ثم . نضغط علي الزر الاول دبل كليك للدخول الي صفحة كتابة الكود الخاصة بالزر الاول , وليكون الحدث هو حدث ( CLICK ) . ونكتب :
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
x : integer ;
i , v : string ;
begin
i := edit1.Text ;
v := edit2.Text ;
FOR x := 1 TO strtoint(i) DO
begin
memo1.Lines.Add(v);
end;
end;
المتحول X من النوع integer (رقمي صحيح) , لانه سيكون بمثابة عداد الحلقة .
المتحول v و i من النوع string ( نصي ) . لماذا نصي ؟؟ لاننا سنقوم بأستقبال النصوص التي سيقوم المستخدم بأدخالها في عناصر الــ EDIT , ثم أسنادها الي تلك المتحولات , أي لابد أن تكون نوع تلك المتغيرات نصيـــة , لانها ستقوم بأستقبال متغيرات نصية !! اتمني أن تكون الفكرة وصلت ...
قمنا بأسناد قيم :
Edit1.text الي المتغير i
و
edit2.text الي المتغير v
الان :نقوم بكتابة الحلقة ( سنستخدم حلقة من النوع FOR وبالطبع يمكننا أستخدام أي نوع أخر ) .
نسند المتغير X ليكون عداد الحلقة , ثم نضع الشرط وهو : ( طالما المتغير X يساوي رقم 1 الي رقم المتغير i )
نلاحظ أننا أستخدمنا دالة strtoint لقراءة القيمة المدخلة في EDIT كقيمة رقمية وليست نصية .
أذن الحلقة هي : طالما المتغير X يساوي رقم 1 الي الرقم ( الذي سيقوم المستخدم بأدخاله في العنصر EDIT1 لتحديد عدد التكرارات كما يريد ) , قم بأضافة الجملة المسندة الي المتغير V ( الخاص بالعنصر EDIT2 ) الذي سيقوم المستخدم أيضا بأختياره .............
وبارك الله فيكم وبكم
شرح برنامج أستخدام المتغيرات مع العناصر مع الحلقات - sadwolf - 26-04-2013
بارك الله فيك
شرج واضح ومفهوم