Mot de passe

Question

Bonjour a tous, 
J'ai crée un générateur de codes (fonctionGenCode). Je voudrais savoir si il était possible de l'appliquer à un Edit. Je m'explique j'ai un TButton(1) en mode Enabled:=False.
J'ai un TEdit (1) pour entrer un mot de passe. Je voudrais que lorsque le bon mot de passe est entrée dans l'edit, le button se mettent en mode Enabled:=True. 
Je voulais savoir si mon générateur pouvais être appliqué à cet edit, c'est à dire qu'il trouvé lui même le mot de passe.
Merci de me donner une piste
@+

Francky23012301 · Answer

Salut,

Sans code on ne peut pas t'aider : En voyance ici on n'est pas trop doué ;).

buguetj · Answer

Voila le code:

Tout d'abord cette promière partie correspond à la fnction GenCode. Ce code appartient à une 2nd unité (Unit2):

unit Unit2;
 
interface
 
  function genCode(masque : string) : string;
 
implementation
 
uses
  SysUtils;
 
function genCode(masque : string) : string;
var
  i, n : integer;
begin
  n :=  length(masque);
  result := stringofchar(' ', n);
  for i := 1 to n do
    // le masque est un a, on génère une lettre
    if (masque[i] = 'a') then
      result[i] := chr(65 + random(26))
    // le masque est un 0, on génère un chiffre
    else if (masque[i] = '0') then
      result[i] := chr(48 + random(10))
    // sinon erreur
    else
      raise Exception.create('Caractère [' + masque[i] + '] invalide dans le masque');



 end; 



end.

Voila l'Unit1 qui utilise cette fonction:
procedure TForm1.MMTimer 1Timer (Sender: TObject);
begin
Label1.Caption: =Unit2.genCode(Forme.Text);
Edit2.Text:=Label1.Caption;

RQ: L'EDIT1 SERT POUR ENTRER UN AUTRE MOT DE PASSE

moldov · Answer

Salut,

Et bien il faut que tu test le TEdit du mot de passe.
Par exemple sur l'évènement OnChange du TEdit tu met le test de ton mot de passe et si il est bon tu met Button.Enable := True;

Ex:

Procédure EditOnChange(Sender : Tobject)
begin
    if edit1.text = 'motdepasse' then
        Button.Enable := True
    else
        Button.Enable := False;
end;

Par contre je ne sais pas à quoi elle sert exactement ta fonction GenCode.
Bonne Prog

mashoor · Answer

merci beaucoupe

Mot de passe

4 réponses

Votre réponse

Discussions similaires