Imposer l'écriture binaire dans un TEdit

Réponse acceptée !
Salut,

regarde déjà cette source elle contient tout ce dont tu as besoin:
CONTROLER UN "COPIER/COLLER" DANS UN TEDIT

si tu n'y arrives pas reviens nous le dire

 
@+
Cirec

---

Réponse acceptée !
ps: le contrôle des caractères se fait dans l'unité "UMain.pas" dans la procédure :
procedure Tfrm_Main.Edit_NumKeyPress(Sender: TObject; var Key: Char);

l'autre unité "CustomCtrls.pas" ne t'es pas indispensable pour contrôler la saisie dans un TEdit.
Elle permet juste un contrôle plus poussé sur le TEdit ... mais il y a des explications et une démo

 
@+
Cirec

---

Réponse acceptée !


limiter a 0 .. 1 (binaire)

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if not (Key in ['0','1',#08]) then key := #0;
end;

limiter a 0..F (hexa)

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
   if Key in ['a'..'f'] then Key := UpperCase(Key);
   if not (Key in ['0'..'9','A'..'F',#08]) then key := #0;
end;

---

Croc (click me)

Réponse acceptée !
@ F0xi :
c'est vrai que c'était plus simple de l'écrire directement ici ... mais ça lui permettera au moins de voir encore d'autres choses en plus de la limitation de saisie

Par contre ceci :
   if Key in ['a'..'f'] then Key := UpperCase(Key);

te provoquera une petite erreur a la  compilation :
Type incompatible : 'Char' et 'String'

comme ceci ça passera bien mieux

   if Key in ['a'..'f'] then Key := UpCase(Key);


 
@+
Cirec

---

Réponse acceptée !


encore plus simple :

if Key in ['a'..'f'] then dec(Key,$20);

---

Croc (click me)