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
@+

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

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

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

merci beaucoupe