Zitat von
Nicodius:
geht leider nicht
Was für ein Wunder ...
Hast du dir mein Posting auch angeschaut? Dort steht etwas in den Code-Kommentaren von "e --> 0 bis 8".
Mit dem, was du anscheinend eben getestet hast ...
Code:
for e := 0 to Pos('+', Text.Lines.Strings[i])+str do
(von glkbkk)
... hast du schon für e die Werte 0 bis 15 - also noch falscher.