Problem mit Mathe-Parser

[athomas]

danke schonmal für die schnelle antwort

ich hab deine tipps befolgt und die while-schleife von null gestartet:

Delphi-Quellcode:

//Differenz
  ende:=false;
  i:=0;
  if arr.count>1 then
    begin
      while not(ende) do
        begin
          if (arr[i]='-') then
            begin
              if i=0 then
                begin
                  arr[i]:=floattostr(- strtofloat(arr[i+1]));
                  arr.delete(i+1);
                end
              else
                begin
                  arr[i-1]:=floattostr(strtofloat(arr[i-1])-strtofloat(arr[i+1]));
                  arr.delete(i);
                  arr.delete(i);
                end;
            end;
          ende:=true;
          for j:=0 to arr.count-1 do
            if (arr[j]='-')and(length(arr[j])=1) then
              ende:=false;
          i:=i+1;
          i:=i mod (arr.count);
        end;
    end;

negative vorzeichen funktionieren jetzt soweit ganz gut, aber wenn ich z.b. -1-2-3-4-5 eingebe, konnt -7 raus ^^
was stimmt denn noch nicht