Petite amélioration du source du mot de passe de quake" (pour débutants)

Commenter

Contenu du snippet

En fait c'est pas trop compliqué (g réussi à faire ça assez vite en étant débutant) mais ça améliore un peu le source de Quake (Pas le jeu comme l'a cru un de mes potes, Quake est le pseudo d'un programmeur de Codes Sources) qui était une bonne base mais inéficace, merci à lui quand-même pour m'avoir donné une base pour faire ce petit source(désolé pour les erreurs de construction du source, pour compléter la lisibilité j'ai ajouté pas mal de commentaires.

Source / Exemple : 


procedure TForm1.FormCreate(Sender: TObject); //Ce code est à rentrer dans la partie Evénements de l'inspecteur d'objets à l'onglet ""OnCreate""
const
    MotDePasse = 'Le mot de passe choisi est à rentrer ici';
var
    Reponse: string;
    DonneReponse: boolean;//Pour les novice, boolean sert à affecter à une variable la valeur true (vrai) ou false (faux)
label label1;
begin
    DonneReponse := InputQuery('.::Attention::.', 'Entrez le mot de passe !', Reponse);
    if DonneReponse then
    begin
      if Reponse = MotDePasse then
      Form1.Show
      else
        begin //Dans le cas où l'utilisateur entre un mauvais mot de passe, le programme ouvre la même fenêtre que la première, mais avec un message différent "Entrez un mot de passe valide !"
        label1:// cible du goto label1
        Reponse := '';
         DonneReponse := InputQuery('.::Erreur::.', 'Entrez un mot de passe valide !', Reponse);
         if DonneReponse then
          begin
           if Reponse = MotDePasse then
            Form1.Show
            else
            goto label1 //Ouvre de nouveau la fenêtre avec les instructions en cas de mauvais mot de passe
          end
         else                     //si la fenêtre est quittée
         Application.Terminate;   // ou si on clique sur annuler
        end;                             //le programme se ferme
    end
   else                      //idem, mais cette fois ci
   Application.Terminate;   //c'est pour la deuxième fenêtre, celle qui s'ouvre quand
end;                                         //l'utilisateur a entré un mauvais mot de passe
end.

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (JackTheRipp3r)