Discussion :

[Wilco]

Bonjour à tous,

Je cherche à réaliser une application où je puisse calculer le résultat d'une expression mathématique saisie dans un champ texte ou mémo.

Exemple : le champ Text1 contient :
Text1.Text := '(1200 + 400) / 4';


Je souhaite évaluer cette expression et en afficher le résultat.

Existe-t-il un composant ou une solution ?

Merci d'avance,
Wilco

[mayloshi]

Utilise la fonction de conversion IntToStr (ou RealToStr pour les réels). Cette fonction te permet de convertir une expression numérique en chaine de caractères (type de la propriété text). Ecris:

texte1.text:=IntToStr((1200 + 400) DIV 4); //pour les entiers

texte1.text:=RealToStr((1200 + 400) / 4); //pour les réels

[Wilco]

hum ...

Je ne crois pas que la fonction StrToInt soit capable d'évaluer une expression !

[SegmentationFault]

j'ai préféré que tu essayes et tu nous repond par ca marche ou ca ne marche pas.

j'ai essayé à ta place et le resultat est inattendue en ce que me concerne: Ca marche!

Bravo mayloshi

[SegmentationFault]

c'est encore moi!

disons que cette methode a du mal avec des chaine un peu complexe. Alors je te conseille viverement ca :

http://www.swissdelphicenter.ch/torr...ode.php?id=470

Bon courage

[cmen76]

http://delphi.icm.edu.pl/ftp/d40share/meparser.zip

[Yurck]

bonjour,
As tu essayé les analyseurs syntaxiques ?
Pour ma part j'ai fait le mien afin d'y introduire des références à ma base de données.

Avec mon ami google je trouve sur developpez.com quelques sources qui mérite sans doute un regard.
"delphi expression mathématique"

a+

[14JoursEnMai]

Torry donne aussi des résultats intéressants

http://www.torry.net/quicksearchd.ph...ation&Title=No

A tester (surtout les FWS freeware with sources)

[Wilco]

Merci à tous pour vos réponses.

Je viens d'essayer les fonctions que SegmentFault m' a suggérées d'utiliser via le lien http://www.swissdelphicenter.ch/torr...ode.php?id=470


Et cela semble fonctionner correctement.

Encore une fois merci,
Wilco