PASSWORD LOGIQUE2(AVEC NOMBRES D'ESSAI LIMITÉ)

var
  Form1: TForm1;
  I:integer;{var utiliser pour nbr de fois}

implementation

uses Unit2;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var pass: string;{variable password}
begin
i:=(i+1);{chaque fois que l'ont appuie sur le bouton on ajoute1 à I}
if i < 3{si on esayer moins de trois fois}
then
begin
    pass := inputbox('Activez les autres options','Entrez votre mots de pass :','');
    if pass = '1213'{si le mots de pass et juste}
    then{alors}
        begin
             form2.show;{Effectue les opérations dans se cas ouvre la form2}
        end
    else{sinon}
        if pass = ''{si la personne n'a rien entré}
        then{alors}
            begin
                 beep;
                 messagedlg('Veuillez entrer un mots de pass... Encore : '+IntToStr(2-I)+' essai',mtWarning,[mbOK],0);{entrer un mots de pass}
            end
        else{sinon}
            if (pass <> '') and (pass <>'1213'){si mauvais mots de pass}
            then{alors}
                begin
                     beep;
                     messagedlg('Mauvais mots de pass !!! Encore : '+IntToStr(2-I)+' essai',mtError,[mbOK],0);{mauvais mots de pass}
                end
                end
else
    begin
         beep;
         messagedlg('Vous avez fait trop de mots de pass faux !!!',mtError,[mbOK],0);
    end;;;;
            end;
procedure TForm1.FormActivate(Sender: TObject);
begin
i:=-1;{Donnée au chargement de la form}
end;

end.

Télécharger le zip