+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : طريقة اغلاق البرنامج تلقائيا بعد ادخال كلمة المرور 3 مرات خطأ (/showthread.php?tid=1899)
طريقة اغلاق البرنامج تلقائيا بعد ادخال كلمة المرور 3 مرات خطأ - delphi555 - 11-04-2010
السلام عليكم
اخواني صممت برنامج ووضعت له كلمة مرور بهذا الكود
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text+Edit2.Text='ab' then
form2.Show
else
ShowMessage('2') ;
end;ولكم جزيل الشكر:bye1:
طريقة اغلاق البرنامج تلقائيا بعد ادخال كلمة المرور 3 مرات خطأ - yahia1921 - 11-04-2010
ماذا تقصد بالتالي
كود :
ShowMessage('2') ;اخي انصحك باستعمال حلقة
مثلا while
ويكون الشرط في حالة عدم الصحة بحلة مثل while i < 3 do
عند عدم تحق الشرط بعد ثلاث محاولات اكتب التالي
كود :
application.terminate;بالتوفيق
طريقة اغلاق البرنامج تلقائيا بعد ادخال كلمة المرور 3 مرات خطأ - kachwahed - 11-04-2010
وعليكم السلام ورحمة الله
شيء مثل هذا:
كود :
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;طريقة اغلاق البرنامج تلقائيا بعد ادخال كلمة المرور 3 مرات خطأ - karamofweb - 19-04-2011
أنصحك بالطريقة الآتية:
سجل الرقم 1 في الريجيتري لكل محاولة وصع حلقة while تقوم باغلاق البرنامج شرطيا