interdire deux virgulesRésolu

Question

Bonjour,



j'ai un edit sur ma fiche, et j'aimerais bien qu'on ne puisse pas entrer deux virgules dedans, comment puis-je faire?



Merci

ni69 · Accepted Answer

Tu peux faire comme ceci (rajoute le code dans l'événement OnKeyPress de ton TEdit ) : procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Key = ',' then if Pos( ',' , Edit1.Text ) <> 0 then Key := #9; // Si une virgule se trouve déjà dans le texte de l'Edit, un bip se produit (#9) end; @+ Bonne Prog' Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! www.ni69.new.fr

cs_sim51 · Answer

Salut,
Simplement pour mes connaissances ni69, la fonction pos donne la position du caract&#232;re dans la chaine. C'est &#231;a ?? et elle renvoie 0 sinon ?

Ps : en taille 1 c'est udr &#224; lire :p


N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e si la r&#233;ponse vous convient !!!

ni69 · Answer

Comme tu le dis, la fonction Pos(SousChaîne, Chaîne) renvoie la position de la SousChaîne dans la Chaîne et 0 si elle n'est pas présente. Désolé pour la taille des caractères ! @+ Bonne Prog' Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! www.ni69.new.f

cs_sim51 · Answer

mdrrrrrrrrrrrr c'est pas grave pour la taille, vive le ctrl + molette arri&#232;re :p



N'oubliez pas de cliquer sur r&#233;ponse accept&#233;e si la r&#233;ponse vous convient !!!

cs_Delphiprog · Answer

"vive le ctrl + molette arri&#232;re " : je viens d'apprendre quelque chose aujourd'hui. Merci sim51 

<

JulioDelphi · Answer

Solution acceptable, mais je pouuse le bouchon et je colle "1554,1154,1" j'ai donc 2 , et aucun bip =)



je propose &#231;a :



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

begin

 if Key = ',' then if Pos( ',' , Edit1.Text ) <> 0 then Key := #9;

end;



procedure TForm1.Edit1Exit(Sender: TObject);

var temp: string;

begin

 temp := edit1.text;

 if pos(',', temp)>0 then

  begin

   delete(temp,0, pos(',',temp));

   if pos(',', temp)>0 then

    begin

     beep;

     Showmessage('Attention il y a 2 , !');

     edit1.SetFocus;

     edit1.SelectAll;

    end;

  end;

end;



&#231;a v&#233;rifi&#233; en plus lors du OnExit que 2 , ne sont pas pr&#233;sentes.

ni69 · Answer

Bien vu JulioDelphi ! J'avoue que n'y avais pas pensé ! @+ Bonne Prog' Nico

N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient ! www.ni69.new.fr

Maniaxman · Answer

pas mal, j'avoue que je n'avais pas pens&#233; non plus qu'on pouvait coller


n'y a t-il pas un moyen plus simple qui permettrait d'interdir de coller dans un label ?

JulioDelphi · Answer

C'est le moyen simple celui l&#224;, apr&#232;s tu peux changer le composant edit
afin qui ne re&#231;oive plus le message windows du collage, tu peux aussi
bidouiller (plus compliqu&#233; que ce que j'ai fait) qu'il v&#233;rifi&#233; quand
une touche est appuy&#233;e que ce n'est pas un "ctrl" enfonc&#233; avec un "v"
ou un "V" puis ajouter un menu en clic droit pour supprimer l'original,
enfin bref, beaucoup plus compliqu&#233; et bidouill&#233; que mes quelques
lignes =)

Maniaxman · Answer

et comment faire pour ne pas faire afficher le message du collage?

JulioDelphi · Answer

Hum ... Une petite lecture du code pour voir mon simple 

Showmessage('Attention il y a 2 , !');

A toi de le supprimer.

Maniaxman · Answer

dsl, ce que je voulais dire c'&#233;tait comment ne pas faire afficher "coller" dans le menu contextuel de l'edit, mais je crois que j'ai tout ce qu'il me faut, merci a vous tous

Interdire deux virgules

12 réponses

Votre réponse

Discussions similaires