3 yanlış şifrede programın kapanması ??

[sevturk]

Kod: Tümünü seç

procedure TForm15.Button1Click(Sender: TObject);
var
sifre:string;
deneme:integer;
Begin
sifre:='123';
if sifre=Edit1.Text then
begin
Form15.Hide;
Form1.Show;
end
Else
Begin
deneme:=deneme+1;
Showmessage('Hatalı şifre girdiniz!!!');
Edit1.Text:='';
if deneme>3 then
Begin
Showmessage('Malesef Hakkınız doldu.');
Halt;
end;
end;
end;

S.A.
arkadaşlar öncelikle herkese selam olsun diyorum uzun zamandır siteyi ziyaret edemiyordum çünkü askerdeydim ama artık Allahın izniyle bende aranızdayım..

arkadaşlar böyle bir kod buldum arşivimimde ama çalıştıramadım, bayağı uğraştım ama olmadı yapamadım, kodlarda eksik veya yanlış gören varsa veya farklı bir yapıda fikri olan varsa bana yardımcı olabilirmi.. yardımlarınızı bekliyorum Allaha emanet olun hayırlı çalışmalar..

[oyle]

Deneme degiskeni local tanimlanmis onun icinde butona her tiklayisinizda degeri hep 1 oluyor. Global olarak tanimlarsaniz sorun duzelecektir.

[sevturk]

oyle arkadaşım yardımın için Allah senden razı olsun.. dediğin gibi global tanımlayınca oldu aklımada hiç gelmemişti doğrusu ilgin için teşekkür ederim hayırlı çalışmalar..