عداد للنقاط

[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
شكراجزيلا