07-09-2015, 04:21 PM
Kod:
var
yazi:String;
i:integer;
Begin
i:=0;
Repeat
yazi:=inputbox('Şifre koruması', 'Lütfen şifreyi giriniz','');
if yazi<>'123456789' then
i:=i+1;
if i=3 then begin
showmessage('3 kez hatalı şifre girdiniz program kapatılıyor');
Halt;
end;
until yazi='123456789';
form2.show;
end;
Temelllerini sağlam atarsan bir Dağ sağlam atamassan bir ova gibi olursun.