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
