ÉVALUATEUR D'EXPRESSION

Commentaire de Nono40 le 05/10/2002 16:27:19

C'est bien le début du principe général...

Tu devrais utiliser CharBuff et Operator de type Char plutôt qu'un type string, car Char étant de type Ordinal, il est possible de l'utiliser dans des ensemble et dans un case :
If Not (CharBuff In ['+','-','/','*'])...
Puis :
    Case Operator Of
       '+': edit1.Text:=inttostr(strtoint(buffer[0])+strtoint(buffer[1]));
       '-': edit1.Text:=inttostr(strtoint(buffer[0])-strtoint(buffer[1]));
       '*': edit1.Text:=inttostr(strtoint(buffer[0])*strtoint(buffer[1]));
       '/': edit1.Text:=inttostr(strtoint(buffer[0])/strtoint(buffer[1]));
    end;
Par contre on ne peut écrire CharBuff=Copy(Edit1.Text,Accu,1). Le mieux est de copier Edit1.Text dans une chaine, puis d'utiliser cette chaine comme un tableau :
Begin
   Temp:=Edit1.Text;
   ...
   While ...
      CharBuff:=Temp[Accu];
      ...

Dans le principe général il faut décoder l'équation en deux temps : le première lit toute l'équation et stock les opérandes et opérateurs sous forme de pile. Cette procédure est généralement récursive pour la gestion des parenthèses. La vérifiation de la syntaxe est faite à ce moment. Puis si toute la ligne est lue sans problème une deuxième procédure dépile tous ce qui à été lu et effectue les opérations. Les contrôles de validités sont effectués à ce moment ( division par zéro par exemple... ).

Nono.