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

[himitsu]

Zitat von Blup:

// hier alles in SL ausrechnen

jupp, der Code da zerlegt nur den String und setzt ihn am Ende wieder zusammen

Delphi-Quellcode:

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

in dem kompletten Code steht dann z.B. sowas drin

dieses schaut, ob irgendwo in SL eine Kombination von "Zahl * Zahl" vorkommt

Delphi-Quellcode:

If    TryStrToFloat(SL[i], a) 
  and (SL[i + 1] = '*')
  and TryStrToFloat(SL[i + 2], b) Then Begin

wenn soetwas gefunden wurde, dann wird dieses ausgerechnet und in SL durch das Ergebnis ersetzt

Delphi-Quellcode:

SL.Delete(i + 2);
SL.Delete(i + 1);
SL.Delete(i);
SL.Insert(i, FloatToStr(a * b));

es geht auch andersrum

Delphi-Quellcode:

SL.Insert(i, FloatToStr(a * b));
SL.Delete(i + 1);
SL.Delete(i + 2);
SL.Delete(i + 3);

// bzw.
SL.Insert(i + 3, FloatToStr(a * b));
SL.Delete(i + 2);
SL.Delete(i + 1);
SL.Delete(i);

etwas gekürzter Austausch

Delphi-Quellcode:

SL.Delete(i);
SL.Delete(i);
SL.Delete(i);
SL.Insert(i, FloatToStr(a * b));

und noch mehr gekürzt

Delphi-Quellcode:

SL.Delete(i);
SL.Delete(i);
SL[i] := FloatToStr(a * b);

nja, jedenfalls müssen irgendwie aus der Liste die entsprechenden (hierfür 3) Einträge raus
und dafür das Ergebnis rein

Zitat von Delphi-Narr:

Ich hatte mir diese Lösung runtergeladen, da fehlte das auch...

hab grad nochmal nachgesehn ... in Taschenrechner_komplett.7z ist alles drin

Zitat von Delphi-Narr:

Konnte das nur wegen StrUtils nicht kompilieren...

Bei mir läuft sogar schon in Delphi 7

Wegen was bezüglich der StrUtils konnte es nicht kompiliert werden? (eine "richtige" Fehlermeldung)

Und welche Delphi-Version hattest du nochmal?
gut, das mit dem Delphi 5 hat sich ja grade geklärt.

ja, dann mußt du einfach diese Unit entfernen und dann schauen bei welchen Funktionen das Delphi nun meckert, weil es diese nicht kennt .... dann könnte man nachsehn ob passende Funktionen irgendwo in D5 existieren oder man sorgt irgendwie für Ersatz. (Ersatzfunktion basteln oder das Problem anders lösen)

[add]
ohne die StrUtils könnte man statt
AnsiMatchText(SL[i - 1], ['*', '/', '+', '-']) einfach dieses machen
((SL[i - 1] = '*') or (SL[i - 1] = '/') or (SL[i - 1] = '+') or (SL[i - 1] = '-'))