Term (Zeichenfolge 1+2*3) in Fließkommazahl

[himitsu]

Zitat von alzaimar:

... Oder ... oder ...

OK, das geht auch
hatte es nur so gelößt, damit man dann auch noch "mod" und Co. einfach nachrüsten kann
(wie hier unten die Klammern, beim Zerlegen, reingequetscht werden, braucht man nur 'a'..'z', 'A'..'Z' bei den Zahlen reinmachen und hat auch noch Wörter, wie Named-Operators, mit geparst )

Zitat:

2*+2

ja, das + und - wird doppelt ausgewertet
- einmal als Vorzeichen ganz am Anfang, da höchste Priorität
- und nochmal ganz am Ende als Operator, da niedrigste Priorität



nein, der kann noch keine Klammern

das hier sollte "nur" ein kleiner "einfacher" Anfang werden,
nicht so wie da http://www.delphipraxis.net/internal...t.php?t=159592

man müßte nur noch "(" und ")" beim Zerlegen mit beachten

Code:

For i := 1 to Length(S) do
  Case S[i] of
    ...
    '*', '/', '+', '-'[color=#ff0000], '(', ')'[/color]: Begin

und dann kommt unten als erste "höchstwertige" Auswertung dieses rein

Delphi-Quellcode:

For i := 0 to SL.Count - 3 do
  If (SL[i] = '(') and TryStrToFloat(SL[i + 1], a) and (SL[i + 2] = ')') Then Begin
    SL.Delete(i + 2);
    SL.Delete(i);
    Goto Loop;
  End;

[add]
hab aber wirklich eine Vereinfachung gefunden
If ((i = 0) or AnsiMatchText(SL[i - 1], ['*', '/', '+', '-'])) dieses war ja einfach nur für "ist Operator", was doch auch soviel wie "ist keine Zahl" heißt

also dieses sollte stattdessen auch gehn
If ((i = 0) or not TryStrToFloat(SL[i - 1], b))
[add]
hier noch mit Klammern und Div/Mod

und ja natürlich kann man da vieles noch optimieren und zusammenfassen, aber das kann auch jeder selber machen