- Katılım
- 12 Eylül 2014
- Mesajlar
- 167
- Tepkime puanı
- 0
- Puanları
- 0
Kod:
[COLOR=#B5B5B5][FONT=tahoma]var[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]yazi:String;[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]i:integer;[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]Begin[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]i:=0;[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]Repeat[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]yazi:=inputbox('Şifre koruması', 'Lütfen şifreyi giriniz','');[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]if yazi<>'123456789' then[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]i:=i+1;[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]if i=3 then begin[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]showmessage('3 kez hatalı şifre girdiniz program kapatılıyor');[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]Halt;[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]end;[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]until yazi='123456789';[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]form2.show;[/FONT][/COLOR]
[COLOR=#B5B5B5][FONT=tahoma]end;[/FONT][/COLOR]