Записать результат в Мемо в виде стека.

[KORT]

Доброе время суток.
В архиве файл с исходником, где необходимо результат из Edit3 записать в мемо2 в виде стека. Зарание спасибо.

[alexBlack]

Проще доработать преобразование в польскую нотацию, добавив разделитель:

function TForm1.Str2Pol(sh, dv: shstr): shstr;
var
  i: word;
begin
  result:='';
  for i:=1 to length(sh) do
    if (sh[i] in par) then result:=result+dv+sh[i] else begin
      case sh[i] of
        '*','/','(': if (f=nil) then crt(f,sh[i])
                     else incl(f,sh[i]);
                ')': begin
                        while not(f^.data='(') do begin
                         result:=result+dv+f^.data;
                         excl(f);
                       end;
                       excl(f);
                     end;
            '+','-': if (f=nil) then crt(f,sh[i])
                       else
                         if (f^.data='(') then incl(f,sh[i]) else begin
                           while not(f=nil) do begin
                             result:=result+dv+f^.data;
                             excl(f);
                           end;
                           crt(f,sh[i]);
                         end;
      end;
    end;
    while not(f=nil) do begin
      result:=result+dv+f^.data;
      excl(f);
    end;
end;

Для обычных вычислений разделитель не задаем
edit2.Text:=Str2Pol(edit1.Text, '');

а для memo:
memo1.Text:=Str2Pol(edit2.Text, #13#10);