PETITE AMÉLIORATION DU SOURCE DU MOT DE PASSE DE QUAKE" (POUR DÉBUTANTS)
cs_bgK
Messages postés
131
Date d'inscription
vendredi 7 juin 2002
Statut
Membre
Dernière intervention
19 janvier 2004
-
1 mai 2003 à 19:25
JackTheRipp3r Messages postés 50 Date d'inscription jeudi 1 mai 2003 Statut Membre Dernière intervention 5 février 2004 - 1 mai 2003 à 20:49
JackTheRipp3r Messages postés 50 Date d'inscription jeudi 1 mai 2003 Statut Membre Dernière intervention 5 février 2004 - 1 mai 2003 à 20:49
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/12512-petite-amelioration-du-source-du-mot-de-passe-de-quake-pour-debutants
https://codes-sources.commentcamarche.net/source/12512-petite-amelioration-du-source-du-mot-de-passe-de-quake-pour-debutants
1 mai 2003 à 20:49
1 mai 2003 à 20:33
Sinon, pour le etoiles, je ne crois pas que ce soit possible avec un InputQuery, donc il faut que tu crées une fiche avec un Edit, et tu changes sa propietes PasswordChar. Ensuite, ta fiche renvoie une valeur booleene, comme le ferait un InputQuery.
au fait, ma source ne marche pas... desole...
ca, c'est plus correct:
procedure TForm1.FormCreate(Sender: TObject);
const Mot='antoine';
var rep: string;
DonneRep: boolean;
begin
DonneRep := InputQuery('.::Attention::.', 'Entrez le mot de passe !', Rep);
if Donnerep
then
repeat
if rep<>mot
then
begin
DonneRep := InputQuery('.::Erreur::.', 'Entrez un mot de passe valide !', Rep);
if DonneRep=false then Application.Terminate;
end
else
Showmessage('Mot de passe Correct');
until (rep=mot) or (DonneRep=false)
else
begin
Showmessage('Application Protégée par Mot de Passe');
application.terminate;
end;
end;
end.
1 mai 2003 à 20:13
1 - Pk c'est déconseillé d'utiliser des GOTO ?
2 - Et comment on fait pour que le mot de passe entré apparaisse sous forme de petites étoiles ?
Si qq1 pouvait m'aider ce serait sympa !
Ah, une remarque sur ta source Partagas, elle a pas l'air de fonctionner. Même quand on entre le bon mot de passe, le message d'erreur "Application protégée par mot de passe" s'affiche.
1 mai 2003 à 19:45
procedure TForm1.FormCreate(Sender: TObject);
const Mot='antoine';
var rep: string;
DonneRep: boolean;
begin
if DonneRep = InputQuery('.::Attention::.', 'Entrez le mot de passe !', Rep)
then
repeat
begin
DonneRep := InputQuery('.::Erreur::.', 'Entrez un mot de passe valide !', Rep);
if DonneRep=false then Application.Terminate;
end;
until (rep=mot) or (DonneRep=false)
else
begin
Showmessage('Application Protégée par mot de passe!');
Application.terminate;
end;
end;
end.
mais pour une debutant comme tu dis, moi je trouve ca deja bien. Enfin un debutant qui cherche au lieu d'attendre une reponse toute cuite!
1 mai 2003 à 19:25