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] = '-'))