Строковый калькулятор

[NewLamer&Programer]

пытаюсь написать строковый калькулятор (то есть вводишь выражение и он считает), нашел вот тут неплохую статью, пытаюсь реализовать (немного изменил, так проще имхо). Но почему то моя функция упорно выдает 0 посмотрите пожалуйста что не так?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Original;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

Function Aqual(Text: String): Extended;
Var stack1, stack2: TStringList;
    i: integer;
    a, b: extended;
begin
stack1:= TStringList.Create;
stack2:= TStringList.Create;

//запись в первый стек цифр, в второй стек операций
for i:= 0 to Length(Text) do
if not (Text[i] in ['0'..'9','A'..'Z','a'..'z','+','-','*','/','(',')','^'])
then Exit;
Case Text[i] of
'0'..'9': stack1.Add(Text[i]);
'A'..'Z','a'..'z','+','-','*','/','(',')','^': stack2.Add(Text[i]);
end;

//парсинг стеков по приоритетам

//0
for i:= 0 to stack2.Count-1 do
begin
  a:= StrToFloat(stack1[i]);
  b:= StrToFloat(stack1[i+1]);
  if stack2[i][1] = '^' then
    begin
    stack1.Insert(i,FloatToStr(Power(a,b)));
    stack1.Delete(i+1);
    stack2.Delete(i);
    end;
end;

//1
for i:= 0 to stack2.Count-1 do
begin
  a:= StrToFloat(stack1[i]);
  b:= StrToFloat(stack1[i+1]);
  Case stack2[i][1] of
  '*':
      begin
      stack1.Insert(i,FloatToStr(a*b));
      stack1.Delete(i+1);
      stack2.Delete(i);
      end;
  '/':
      begin
      stack1.Insert(i,FloatToStr(a/b));
      stack1.Delete(i+1);
      stack2.Delete(i);
      end;
  end;
end;

//2
for i:= 0 to stack2.Count-1 do
begin
  a:= StrToFloat(stack1[i]);
  b:= StrToFloat(stack1[i+1]);
  Case stack2[i][1] of
  '+':
      begin
      stack1.Insert(i,FloatToStr(a+b));
      stack1.Delete(i+1);
      stack2.Delete(i);
      end;
  '-':
      begin
      stack1.Insert(i,FloatToStr(a-b));
      stack1.Delete(i+1);
      stack2.Delete(i);
      end;
  end;
  if stack1.Count = 1 then break;
  if stack2.Count = 0 then break;
end;

Result:= StrToFloat(stack1[0]);

stack1.Free;
stack2.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Canvas.TextOut(200,200,FloatToStr(Aqual(Edit1.Text)));
end;

end.

[BDA]

Не вдаваясь в подробности - автор статьи разбирает строку на числа и операции, а Вы на цифры и операции.

[NewLamer&Programer]

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

Не вдаваясь в подробности - автор статьи разбирает строку на числа и операции, а Вы на цифры и операции.

да ладно бы только это... но допустим я даже ввожу одноразрядные числа, например 1+1, все равно же выводит 0, так что тут что то еще

[NewLamer&Programer]

впрочем уже ладно НАШЕЛ

[BDA]

  for i := 1 to Length(Text) do
    Case Text[i] of
      '0' .. '9':
        stack1.Add(Text[i]);
      'A' .. 'Z', 'a' .. 'z', '+', '-', '*', '/', '(', ')', '^':
        stack2.Add(Text[i]);
    else
      Exit;
    end;

Ошибка была тут (это исправленный код).