delphi4arab منتديات دلفي للعرب

السلام عليكم

اخواني صممت برنامج ووضعت له كلمة مرور بهذا الكود

كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text+Edit2.Text='ab' then
form2.Show    
   else
ShowMessage('2') ;
end;

كيف يمكن غلق برنامجي تلقائيا بعد ان يستعمل 3 مرات خطأ

ولكم جزيل الشكر:bye1:

ماذا تقصد بالتالي

كود :
ShowMessage('2') ;

هل تقصد بها المحاولة الثانية ام ماذا؟؟؟؟؟
اخي انصحك باستعمال حلقة
مثلا while
ويكون الشرط في حالة عدم الصحة بحلة مثل while i < 3 do
عند عدم تحق الشرط بعد ثلاث محاولات اكتب التالي

كود :
application.terminate;

قم باكمال الباقي
بالتوفيق

وعليكم السلام ورحمة الله
شيء مثل هذا:

كود :
var
  NumTry: Byte = 0;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text + Edit2.Text = 'ab' then
    Form2.Show
  else
  begin
    Inc(NumTry);
    if NumTry > 3 then
    ShowMessage(IntToStr(NumTry));
  end;
end;

أنصحك بالطريقة الآتية:
سجل الرقم 1 في الريجيتري لكل محاولة وصع حلقة while تقوم باغلاق البرنامج شرطيا

delphi555

yahia1921

kachwahed

karamofweb