Калькулятор

bool IsInt(AnsiString value){try{int a;return TryStrToInt(value,a);}catch(...){return false;}} //число ли строка?
void AskAndCalc()
{
AnsiString CalcStr=InputBox("...", "Enter CalcString:", "5+5*2-1"); //калькулируемая строка
double AllValue[1000]; //все считаные значения
int Operation[1000]; //все считаные операции
AnsiString SelVal=""; //текущее значение
int CountOper=0, CountValue=0; //кол-во операций и значений
for(int index=1;index<=CalcStr.Length();index++) //проходимся по всей "калькулируемой" строке
{
AnsiString symb=CalcStr[index]; //символ в позиции index
if(!IsInt(symb) && symb!='.' && symb!=',') //если не int, не '.' и не ',' (для float)
{
AllValue[CountValue]=SelVal.ToDouble(); //добавляем значение
if(symb=='+')Operation[CountOper]=1; //если + то добавляем значение 1
if(symb=='-')Operation[CountOper]=2; //если - то добавляем значение 2
if(symb=='*')Operation[CountOper]=3; //если * то добавляем значение 3
if(symb=='/')Operation[CountOper]=4; //если / то добавляем значение 4
CountOper++;CountValue++; //прибавляем кол-во ...
SelVal="";continue; //сбрасывем текущее число и continue не знаю как объяснить, в общем пропускает всё что после неё но не останавливает ...
}
SelVal+=symb; //если стока ^ IsInt то добавляем цифру к тек.числу.
}
AllValue[CountValue]=SelVal.ToDouble(); //добавляем последнее число, так как в форе оно добавлено не будет
double ret=AllValue[0]; //ret = первому числу
for(int operindex=0;operindex<=CountOper;operindex++) //проходимся по операциям
{
int oper=Operation[operindex]; //oper = операции по позиции index
if(oper==1)ret+=AllValue[operindex+1]; // если оператор == 1 то прибавляем к ret ...
if(oper==2)ret-=AllValue[operindex+1]; // ...
if(oper==3)ret*=AllValue[operindex+1]; // ...
if(oper==4)ret/=AllValue[operindex+1]; // ...
}
ShowMessage(ret); //выводим значение
}