عداد للنقاط

[achi]

بسم الله الرحمن الرحيم
كيف اعمل عداد للنقاط المتحصل عليها في هذه اللعبة البسيطة .
القيمة توضع في Label4.caption
وشكرا

[kachwahed]

السلام عليكم
على أي أساس يتم حساب العداد؟
إذا كان حسب عدد المحاولات الناجحة:

كود :

nTry: Integer = 0; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin label2.Caption := inttostr(random(6) + 1); if edit1.Text = label2.Caption then begin label4.Caption := 'Correct'; Inc(nTry); end else label4.Caption := 'False'; Caption := IntToStr(nTry); end;

[achi]

شكرا جزيلا و بارك الله في امثالك والله يزيدك من العلم النافع
اني اقوم ببرمجة دروس في اللغة الانجليزية للمبتدئين واحاول ان اطوره وعندما تصادفني مشكلة ساطلب من الله ااال****** ومن ذوي العلم مع العلم انى استاذ لغة انجليزي



شكرا على ال****** واني ادرس بجد واعمل بما قاله الاخ shagrouni

((بدأت أقتنع تدريجيا، أنه لتوفير مدخل جيد للتعلم والفهم يجب الابتعاد عن كل ما هو مرئي، فتكون الأمثلة
والدروس بإستخدام console ، و خلق المكونات وتوصيفها تكون من خلال الكود، و هكذا))

توضيح عندما كتبت captionبدونform1
معناها ان الفورم هي self
شكراجزيلا