Discussion :

[snake23]

Bonjour à tous,
voila j'aurai une petite question :
Je viens de créer un programme, le problème étant qu'il plante lorsqu'un certain caractère, un point (.) en l'occurence, est entré dans un certain edit.
Je voudrai donc savoir comment vérifier qu'un edit ne comporte pas un texte/caractère défini au préalable.
Merci d'avance pour vos réponses.
A+, Snake23

[Droïde Système7]

Lut all and bienvenue à toi en ce forum,

Voici un p'tit morceau de code que j'avais en réserve, venant de je ne sais plus oú

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
procedure TForm1.Edit1Change(Sender: TObject);
 var
    i: integer;
    c: char;
  begin
     for i := 1 to Length(Edit1.Text) do
  begin
     c := Edit1.Text[i];
    < travail sur le caractère C >
   end;
end;

Bonne progr' !

[snake23]

euh j'ai pas trop bien compris ce que fait ce bout de code
si tu pouvais m'expliquer en deux mots le principe ca serait sympa
merci d'avance

[neilbgr]

Sur l'évenement OnKeyPress() il suffit de controler le Key appuyer et vu que Key est passé en variable, tu peux lui changer sa valeur et mettre #0 lorsque qu'il vaut '.' pour étouffer l'affaire.

Il y a des exemples d'Edit qui n'acceptent que les chiffres, ou bien qui remplace les . par le séparateur décimal régional, etc...

FAQ Delphi : http://delphi.developpez.com/faq/?pa...propri#numbers

[Droïde Système7]

Bonsoir,

Hé oui, avant toute chose lire le réglement de ce forum

Pour faire ma BA de ce jour, je te donne plus basic :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if pos('x',Edit1.Text) > 0 then  // si la letter x est placée...
   beep

Puisque tu as inscrit "je viens de créer un programme", je suppose logiquement que tu peux déjà te débrouiller de ce petit morceau.

Bonne progr'

Et complémentairement, n'oublie pas l'aide en ligne = tu surlignes le mot pos et tu appuies sur F1, de la doc sur cette fonction....

[neilbgr]

On peut même utiliser la fonction StringReplace() , mais bon...

[snake23]

c'est bon je viens de réussir ^^
j'ai utilisé l'évenement OnKeyPress() comme indiqué dans la FAQ
merci à vous deux pour vos réponses