действия над числами в строке

[designer999]

Stilet понял что вы имели введу, но если на кампе не стоит Excel то и функция работать не будет, или я не прав ?

исходя из того что ексель не всегда есть), как єто это реализовать в CalcExpress ?

[Mad_Cat]

только для вас и только у нас

function Calculate(SMyExpression: string; digits: Byte): string;
var
   z: Char;
   ipos: Integer;

   function StrToReal(chaine: string): Real;
   var
     r: Real;
     Pos: Integer;
   begin
     Val(chaine, r, Pos);
     if Pos > 0 then Val(Copy(chaine, 1, Pos - 1), r, Pos);
     Result := r;
   end;

   function RealToStr(inreal: Extended; digits: Byte): string;
   var
     S: string;
   begin
     Str(inreal:0 : 0, S);
     realToStr := S;   
   end;   

   procedure NextChar;   
   var  
     s: string;   
   begin
     if ipos > Length(SMyExpression) then  
     begin  
       z := #9;   
       Exit;
     end  
     else
     begin
       s := Copy(SMyExpression, ipos, 1);
       z := s[1];   
       Inc(ipos);   
     end;   
     if z = ' ' then nextchar;
   end;   

   function Expression: Real;
   var
     w: Real;

     function Factor: Real;
     var  
       ws: string;
     begin
       Nextchar;   
       if z in ['0'..'9'] then
       begin  
         ws := '';
         repeat  
           ws := ws + z;
           nextchar   
         until not (z in ['0'..'9', '.']);
         Factor := StrToReal(ws);
       end  
       else if z = '(' then  
       begin
         Factor := Expression;
         nextchar   
       end
       else if z = '+' then Factor := +Factor   
       else if Z = '-' then Factor := -Factor;   
     end;
    
     function Term: Real;
     var  
       W: Real;
     begin
       W := Factor;
       while Z in ['*', '/'] do  
         if z = '*' then w := w * Factor
       else
         w := w / Factor;
       Term := w;   
     end;
   begin  
     w := term;
     while z in ['+', '-'] do
       if z = '+' then w := w + term
     else  
       w := w - term;
     Expression := w;
   end;
begin
   ipos   := 1;
   Result := RealToStr(Expression, digits);
end;

вызов

s:='1+2*5+3+(5*2+7)';
          s:=calculate(s,0);

[designer999]

ОЧЕНЬ БОЛЬШОЕ СПАСИБО ТЕБЕ !!!!!!!!!!

[Lime]

http://programmersforum.ru/showthread.php?t=57287
Моя тема) Добавьть некоторые операции помоему не столь сложно будет ...

[Stilet]

но если на кампе не стоит Excel то и функция работать не будет, или я не прав ?

Прав. Я в таких случаях все же ищу то что установленно, VBScript, Java, СУБД какие нить... Ну что-то же должно быть?
Я не очень доверяю компонентам для делфи в этом плане.