Tedit carriage return line feed touche enterRésolu

Question

Bonjour &#224; Tous,



Juste une petite question s'il vous plait



voila je cherche simplement &#224; &#233;crire dans un fichier texte

lorsque je valide un control edit



pour faire un test j'ai commencez par ce petit bout de code 





unit Unit1;



interface



uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;



type

  TForm1 = class(TForm)

    Edit1: TEdit;

    procedure edit1enter(Sender: TObject)  ;

  private

    { D&#233;clarations priv&#233;es }

  public

    { D&#233;clarations publiques }

  end;



var

  Form1: TForm1;



implementation



{$R *.dfm}



procedure tform1.edit1enter(Sender: TObject);

begin



edit1.Clear;

//edit1.Color := clyellow;

end;



end.


que j'ai mis dans l'&#233;v&#232;nemnent OnEnter

mais lorsque j'appuie sur la touche enter il ne se passe rien.



qui a une id&#233;e pour m'avancer s'il vous plait

d'avance merci
couf

jlen100 · Accepted Answer

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;

jlen100 · Answer

salut

utllise l'evement onkeypress de l'edit il renvoie le code de la touche pressee 

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

 if key=#13 then

 begin

 // traitement de l'action

 edit1.Clear;

 end;

end;

bonne prog

cs_couf · Answer

salut Merci,



  Ok ,



 Je vais &#234;tre plus claire j'ai un lecteur code &#224; barre

qui me fait un CRLF chaque fois que je flashe

je peux saisir aussi le CB &#224; la main

Donc OK pour la 2 eme partie 

Mais pour g&#233;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

jlen100 · Answer

non onkeypress ne transmet que la derniere touche appuy&#233;e.

key est une variable char elle ne peut &#234;tre qu'&#233;gale &#224; #13 ou #10 mais pas les 2 a la fois d'ailleurs &#224; la compilation tu uaras une erreur.

pour le lecteur code &#224; 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)

cs_couf · Answer

salut,



Non c'est par le port PS/2 ratach&#233; au clavier c'est pour cela que je croyais

que #10#13 marcherait






couf

Tedit carriage return line feed touche enter

5 réponses

Votre réponse