Преобразование из инфиксной нотации

[MIKE11IPME]

Итак пишу строковый калькулятор (в строку записывается арифметическое выражение и производятся вычисления). Вопросы начались с того момента как необходимо было определить является ли операция лево-ассоциированной или право-ассоциированной, или как определить что унарный оператор является знаком числа (т.е. -1+2 , а не 2-1)?
предполагается использование только следующих операторов +-*/^

[MIKE11IPME]

код некорректно работает , а точнее почему-то добавляет пустые пробелы в одну из строк, т.е. при записи 2+2 он должен вывести 22+ , а выводиться только 2 , подозреваю что делит не так удаляет и задно не укорачивает длину строки.

function opz(strc00:string):string;
var t,f,u,i:Integer; ad:Char; strc01,steckc00:string;
label inct;
begin
  t:=1;
  f:=Length(strc00);
  while t<(f+1) do
    begin
      ad:=strc00[t];
      if IsCharAlphaNumeric(ad) then
        begin
          strc01:=strc01+ad;
          goto inct;
        end;
      if ad=')' then
        begin
          for i:=Pos('(',steckc00)+1 to f do strc01:=strc01+steckc00[i];
          u:=f-pos('(',steckc00)+1;
          Delete(steckc00,pos('(',steckc00),u);
          goto inct;
        end;
      if steckc00=EmptyStr then steckc00:=ad else
        begin
          case ad of
            '+','-': begin
                       strc01:=strc01+steckc00[t-1];
                       Delete(steckc00,t-1,1);
                     end;
            '*','/': begin
                       if (steckc00[t-1]<>'+')or(steckc00[t-1]<>'-')then
                         begin
                           strc01:=strc01+steckc00[t-1];
                           Delete(steckc00,t-1,1);
                         end
                     end;
          end;
          steckc00:=steckc00+ad;
        end;
      inct:
      Inc(t);
    end;
  for t:=Length(steckc00) downto 1 do strc01:=strc01+steckc00[t];
  Result:=strc01;
end;

procedure TForm1.Button1Click(Sender: TObject);
var strc0,strc1:string;
begin
strc0:=Edit1.Text;
strc1:=opz(strc0);
ShowMessage(strc1);
end;

[MIKE11IPME]

некорректно работает с выражениями аля 9+6/3*9

[Serge_Bliznykov]

MIKE11IPME, а не хотите воспользоваться моим кодом?..
библиотечка для разбора выражений в инфиксной форме Exprus.
отсюда

[evg_m]

      ad:=strc00[t];

t индекс текущей позиции в исходной строке

                       strc01:=strc01+steckc00[t-1];

t индекс заполнения (текущей позиции) в рабочем стеке.
чему спрашивается верить?

      inct:
      Inc(t);

опять индекс в исходной строке !
советую ознакомиться http://www.gunsmoker.ru/2011/01/blog-post.html

[MIKE11IPME]

спасибо понял ошибку, вообще не обратил на это внимание когда писал...лучше на ночь глядя ничего не писать

[MIKE11IPME]

Сообщение от Serge_Bliznykov

MIKE11IPME, а не хотите воспользоваться моим кодом?..
библиотечка для разбора выражений в инфиксной форме Exprus.
отсюда

если не сумею реализовать весь необходимый функционал , так и быть воспользуюсь вашей бибитекой

[Аватар]

так и быть воспользуюсь вашей бибитекой

Оригинально. Типа сделаю одолжение

[Serge_Bliznykov]

Сообщение от MIKE11IPME

так и быть воспользуюсь вашей бибитекой

Супер!
я буду надеяться и ждать, что Вы меня осчастливите этой милостью!
Спасибо Вам, что позволяете мне на это надеяться!!