Parser - wie würdet ihr es machen?

[Ghostwalker]

hmmmmm...also direkt kann ich dir nicht helfen.

Aber vielleicht ein paar Sachen die dir trotzdem Helfen:


a) Rekursionen vermeiden wenns um die Geschwindigkeit geht, da eine Iteration schneller abgearbeitet wird.

b) Zum Zerlegen des Ausdrucks würd ich versuchen Reguläre Ausdrücke zu verwenden. Das geht relativ einfach und schnell. Zum Glück gibts entsprechende Komponenten/Units auch für Delphi.

c) Versuch statt Abfragen/Case's Array's zu indizieren.

Bsp. Opereatoren die mit 2 Werten arbeiten

Statt

Code:

            Case Operator of
                   '+' : Add(w1,w2);
                   '-' : Sub(w1,w2);
                    :
                    :

Wie folgt:

Code:

              Type TFunktion = function(w1,w2:double):double
              var fktarr=array[ord('+')...ord('-')] of TFunktion
                    :
              //Jetzt belegen
              fktarr[ord('+')] := @add;

              //Anwenden
              fkt:= fktarr[ord('-')];
              erg:=fkt(w1,w2);

Hoffe das hilft dir zumindest etwas weiter