probier noch mal meins, nur statt +str -str...
ich hab mir nämlich selbst wiedersprochen
Zitat:
tu statt dem
Code:
for e := 0 to Pos('+', Text.Lines.Strings[i]) do
das
Code:
for e := 0 to Pos('+', Text.Lines.Strings[i])+str do
hin, glaub ich
weil er zählt ja um str stellen
zu weit...
er zählt dann wie schon ma gesagt noch länger
trotzdem war mein anstz glaub ich richtig...
also
Code:
for e := 0 to Pos('+', Text.Lines.Strings[i])-str do