[Delphi 7] question avec Tedit

Salut a tous,

Je sèche grave sur un point que je n'arrive pas a atteindre :aie:

Bref je cherche a savoir comment je pourrais faire pour que dans mon

Tedit1 si je tape [p] et que je clique sur le tbutton il exécute le code que je lui et inclue..

Auriez vous une idée?

merci d'avance et bonne nuit.

À mon avis, ta demande est impossible ou presque. Je dis presque car si tu mets dans ton Tedit un mot qui fait appel à une procédure ou une fonction que tu as déja inclus dans ton programme, là tu peut avoir un certain résultat.
un exemple rapide

Code:

---

if edit1.Text='show' then showmessage('Bon code') else showmessage('Mauvais code')

---

Ceci imprique que tout ce que tu voudras que l'utilisateur fasse, tu devras le programmer d'avance et lui donner une liste de mot (un listbox serait plus approprié).

Je crois, les experts de ce forum peuvent avoir un autre idée, qu'il est imposible que ton logiciel analyse ton texte du Edit et en fasse une procédure cohérente : Fait moi apparaître la fenêtre du showmessage avec le texte "Bon code" à d'intérieur. Un mauvais mot, une faute d'ortographe ect. et tout est à recommencer. Par chance, un ordi peut analyser des données à une vitesse vertigineuse mais à date et j'espère que jamais ils ne pourront remplacer le cerveau humain car c'en ai fait de nous8O.

Si tu réussis cela, tu vas faire des millions $$$:yaisse2: et les développeurs vont faire faillite :evilred:
Moi, j'aimerais voir une partie de ton code pour pouvoir continuer à m'amuser :king:

Salutation Duan :mouarf:

Bonjour,

Citation:

---

Bref je cherche a savoir comment je pourrais faire pour que dans mon Tedit1 si je tape [p] et que je clique sur le tbutton il exécute le code que je lui et inclue..

---

... Qu'est-ce-qui t'empêche de faire :

Code:

---

1 2 3 4

if pos('[p]',edit1.text)>0 then ExectuteCodeP else if pos('[q]',edit1.text)>0 then ExectuteCodeQ et ainsi de suite

---

... et t'es pas obligé de cliquer en plus sur un TButton pour lancer l'exécution.

A+ :D

Salut,

Merci pour ta proposition Gilbert Geyer :D

Alors mon but et d'arriver a faire sa par exemple:

dans mon tedit1.text la personne tape nutri[p]on

Code:

---

1 2	Const p='pass';//mon but et que le programme comprenne qu'il y est un [p] alors le resultat sera nutripasson

---

auriez vous une idée?

merci encore pour votre aide.

Cordialement.

Re-bonjour,

Voiçi une possibilté :

Code:

---

1 2 3 4 5 6 7 8 9 10

Const p='pass' var Resultat : string; po : integer; begin Resultat:=edit1.text; po:=pos('[p]',Resultat); if po>0 then begin Delete(Resultat,po,3); //<- suppression du '[p]' Insert(p,Resultat,po); //<- insertion de la constante p end; ShowMessage(Resultat); end;

---

... et on peut simplifier ce code comme ceci :

Code:

---

if po>0 then Resultat:=StringReplace(Resultat, '[p]', p,[rfReplaceAll]); //<- remplace le '[p]' par ta constante p='pass'

---

A+ :D

Gilbert Geyer Tu es mon sauveur :king:

merci encore une fois.

cordialement.

Bonjour à toutes et à tous,

@ Gilbert Geyer, n'as tu pas oublié le ; dans ta constante.

Apparemment, j'ai essayé ton exemple et le résultat indique exactement ce qui est dans le Tedit et non le résultat de la constante.

Je n'ai peut être rien pigé ?

Voici mon (ton) code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm1.Button1Click(Sender: TObject); Const p='pass' ; var Resultat : string; po : integer;   begin //if po>0 then Resultat:=StringReplace(Resultat, '[p]', p,[rfReplaceAll]); Resultat:=edit1.text; po:=pos('[p]',Resultat); if po>0 then begin Delete(Resultat,po,3); //<- suppression du '[p]' Insert(p,Resultat,po); //<- insertion de la constante p end; ShowMessage(Resultat);   end;

---

@+,

Cincap

:salut:

@cincap: En faite oui il faut rajouter le ; il a du l'oublier :aie:

apres quand tu compile l'exe ill y a normalement Edit1 alors si tu rajoutes un [p] a la fin qui sera donc Edit1[p] alors dans le showmessage tu auras le resultat Edit1pass

Voila en esperant que sa marche pour toi..

A+

Bonjour,

Effectivement j'avais oublié le point-virgule.;)
Mais le compilo te l'a certainement fait remarquer.
Par contre je viens de tester le code avec le ; et il marche.

A+ :D

@ Gilbert Geyer, bien vu, j'oubliais de placer p entre les crochets.

C'est correct et super.

Merci donc pour cette nouvelle astuce.

@+,

Cincap