/8691bd48566641b8bb46d14103a8b7c9/auth-avatar/a9cb737a9cbeb0a05c6310a77fb3b7a6-cs_couf)
Tedit carriage return line feed touche enter [Résolu]
cs_couf
- Messages postés
- 220
- Date d'inscription
- dimanche 5 janvier 2003
- Dernière intervention
- 6 janvier 2011
- Messages postés
- 1651
- Date d'inscription
- samedi 10 juillet 2004
- Dernière intervention
- 25 juillet 2014
A voir également:
- Delphi carriage return
- Delphi crlf - Meilleures réponses
- Bouton enter - Meilleures réponses
- Conversion carriage return line feed ✓ - Forum - C
- Créer un saut de ligne (carriage return) ✓ - Forum - ASM
- Calculatrice delphi 7 pdf - Forum - Delphi / Pascal
- [Delphi XE2] Contrôle des fuites mémoires avec FastMM4 - Conseils pratiques - Delphi
- [delphi] déclarer et utiliser les types - Conseils pratiques - Delphi
5 réponses
Meilleure réponse
/58e1af584bd7440ca86cea2658932816/auth-avatar/e3fe44a2ed899665c7c20e7e71ccf454-jlen100)
- Messages postés
- 1651
- Date d'inscription
- samedi 10 juillet 2004
- Dernière intervention
- 25 juillet 2014
tu as certainement une routine d'acquisition il faut voir dans celle ci. Sinon il faut filtrer dans l'edit:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key= #10 then
begin
tag: =1; //on positionne le tag de l'edit comme indicateur
key: = #0;//pour ne pas perturber l'affichage
end ;
if( key =#13) and (tag= 1) then
begin
// traitement de l'action
tag: =0;key=#0;// on repositionne le tag
edit1.Clear;
end;
end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key= #10 then
begin
tag: =1; //on positionne le tag de l'edit comme indicateur
key: = #0;//pour ne pas perturber l'affichage
end ;
if( key =#13) and (tag= 1) then
begin
// traitement de l'action
tag: =0;key=#0;// on repositionne le tag
edit1.Clear;
end;
end;
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
125 internautes nous ont dit merci ce mois-ci
- Messages postés
- 220
- Date d'inscription
- dimanche 5 janvier 2003
- Dernière intervention
- 6 janvier 2011
salut Merci,
Ok ,
Je vais être plus claire j'ai un lecteur code à barre
qui me fait un CRLF chaque fois que je flashe
je peux saisir aussi le CB à la main
Donc OK pour la 2 eme partie
Mais pour gérer un CRLF
ai je le droit de faire comme ceci?
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 or key =#13#10
then
begin
// traitement de l'action
edit1.Clear;
end;
end;
penses tu que je pourrais le CRLF avec?
couf
Ok ,
Je vais être plus claire j'ai un lecteur code à barre
qui me fait un CRLF chaque fois que je flashe
je peux saisir aussi le CB à la main
Donc OK pour la 2 eme partie
Mais pour gérer un CRLF
ai je le droit de faire comme ceci?
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 or key =#13#10
then
begin
// traitement de l'action
edit1.Clear;
end;
end;
penses tu que je pourrais le CRLF avec?
couf
- Messages postés
- 1651
- Date d'inscription
- samedi 10 juillet 2004
- Dernière intervention
- 25 juillet 2014
non onkeypress ne transmet que la derniere touche appuyée.
key est une variable char elle ne peut être qu'égale à #13 ou #10 mais pas les 2 a la fois d'ailleurs à la compilation tu uaras une erreur.
pour le lecteur code à barre je suppose qu'il est lu par
l'intermediaire d'un port entree/sortie (liaison serie ou autre) c'est
donc la routine de gestion de ce port qui doit gerer le CRLF arrivant
du lecteur (affichage du code+CRLF)
key est une variable char elle ne peut être qu'égale à #13 ou #10 mais pas les 2 a la fois d'ailleurs à la compilation tu uaras une erreur.
pour le lecteur code à barre je suppose qu'il est lu par
l'intermediaire d'un port entree/sortie (liaison serie ou autre) c'est
donc la routine de gestion de ce port qui doit gerer le CRLF arrivant
du lecteur (affichage du code+CRLF)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.