Controle sur un edit

Question

Bonjout à tous !!

Sur un edit je voudrais mettre un controle pour que les deux premiers caractères ne soient pas des alphas. Et afficher un message au user pour lui dire qu'il ne doit pas saisir de lettre.

Merci d'avance de votre aide.

Bisous

Attention car il n'y a ni pardon, ni absolution, ni secret du confessionnal, tout ce
qui est dit est utilisé contre vous
(Controle de l'information au sein d'une secte :
www.undfi.org/sectes/influence.htm)

cs_Delphiprog · Answer

Nous ne dirons donc rien !
May Delphi be with you

djeckelle · Answer

Oui mais enfin la quand même il n'y a pas trop de risque !!
;-))

Donc stp, j'ai besoin d'aide !!

cs_Delphiprog · Answer

Il y a plusieurs façons de faire. En voici une, vite faite :

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if (Length(Edit1.Text) < 2 )
    and (Key in ['A'..'Z', 'a'..'z']) then
    begin
      Key := #0;
      MessageBeep(mb_IconExclamation);
    end;
end;


May Delphi be with you

djeckelle · Answer

Lenght me donne une chaine, mais comment puis je voir la position des caractères??

djeckelle · Answer

J'ai écrit la procédure ci-dessous, j'ai bien le test et l'affichage du message d'erreur, mais le test est fait sur tout les caractères et la donnée ne se met pas à nul?

procedure TfrmCALIBFiche.edtCALIB_CODEChange(Sender: TObject);
var
Key  : Char;
  A   : Char;
  B   : Char;
begin
  A := edtCALIB_CODE.text[1] ;
  B := edtCALIB_CODE.text[2] ;
     If A in ['A'..'Z', 'a'..'z'] then
      begin
      fMessageErreur(fGetMessage(MessageContext,'Erreur saisie'),1,1);
      A := #0;
     end;
  If B in ['A'..'Z', 'a'..'z'] then
  begin
    fMessageErreur(fGetMessage(MessageContext,'Erreur de  saisie'),1,1);
    B := #0;
    end
 else
  Key := fCtrlChampNum(Key,edtCALIB_CODE,10,0);
end;

cs_Delphiprog · Answer

C'est normal, tu n'affectes pas de valeur à edtCALIB_CODE.text[1] ou [2] avant de sortir !

Quant à la fonction Length, elle n'a jamais renvoyé une chaîne mais un Integer.

May Delphi be with you

djeckelle · Answer

Ok ca  marche!!

Merci pour tout!

Controle sur un edit

7 réponses

Votre réponse

Discussions similaires