Imposer l'écriture binaire dans un TEditRésolu

Question

Bonjour,
J' aimerais pouvoir écrir dans un Tedit seulement en binaire car c est pour trensmettre des donnée via le port paralele. Et je ne sais comment fair. Pouvez vous m aider? merci d'avance pour votre aide.

Cirec · Accepted Answer

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

<hr size="2" />

f0xi · Answer

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;

<hr size="2" width="100%" />Croc (click me)

Cirec · Answer

@ 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

<hr size="2" />

f0xi · Answer

encore plus simple :

if Key in ['a'..'f'] then dec(Key,$20);

<hr size="2" width="100%" />Croc (click me)

bobstien · Answer

Merci beaucoup les programmeurs  Encore beaucoup de chemin me reste à parcourir pour atteindre  votre niveau. Bonne journée

Imposer l'écriture binaire dans un TEdit

5 réponses

Votre réponse

Discussions similaires