كيف تحديد عدد المحاولات

[youcefcripcho]

السلام عليكم
ارغب في جعل المستخدم ان يدخال قيمة معينة في edit
وان اخطا 3مرات تظهر له رسالة بانه تعدى المحاولات المسموح بها وينغلق البرنامج؟

[CID_01]

[COLOR="Orange"]وعليكم السلام
يمكنك ذلك عنطريقة وضع متغير جديد في قسم المتغيرات وتستعمله كعداد مثال[/COLOR]

كود :

var i:integer; begin i+1; if i=3 then close;

[youcefcripcho]

هل يمكن ان توضح اكثر من فضلك

[CID_01]

[COLOR="Orange"]حسنا سأحاول
مثلا انشأ نموذج جديد ضع فيه edit و button
أنشأ متغير من نوع integer وسمه i أو أي أسم لجعله عداد
ثم أكتب الكود في الرد السابق في button[/COLOR]

[youcefcripcho]

لكن الكود لا يتحقق من القيمة الموجودة في edit

[CID_01]

[COLOR="Orange"]هذا ملف فلاشي للتوضيح
تفظل[/COLOR]

كود :

http://www.mediafire.com/?ch0zkq6lramons7

[CID_01]

يمكنك التحقق هكذا

كود :

begin i:=i+1; if edit1.text = 'name' then form2.show else if i=3 then close end;

[ALmuhhnad]

السلام عليكم .~

تفضل , إن لم تستطع فهم الكود ساشرحه لك

PHP كود :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  CountEnterPass : ShortInt;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if CountEnterPass < 2 then
  begin
    if Edit2.Text = 'youcefcripcho' then
      ShowMessage('Thank You, Enjoy ..!')
  end
  else
  begin
    ShowMessage('Sorry !!, The program will exit');
    Close;
  end;
  Inc(CountEnterPass);
end;

end. 


[youcefcripcho]

شكراCID_01 على الافادة
ALmuhhnad
الكود مفهوم.... فقط ماذا تعمل التعليمة الاخيرة inc(CountEnterPass
هل يمكن عمله بواسطة بوكل for i:=0 to 3

وجزاكم الله خيرا

[CID_01]

[COLOR="DarkOrange"]inc تقوم بزيادة المتغير مثل i:=i+1
+
نعم يمكنك إستخدام for[/COLOR]