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

[designer999]

Здравствуйте
вот такой вроде не сложный но в тоже время интересный вопрос, как сделать действия над числами если они все в одной строке и разделены знаками, например:

S:='1+2+2-3+5-1=';

пробовал сделать так но что то запутался в парсе(

while (s<>'=')  do
begin
if pos('+',s)<pos('-',s) then
begin
i:=i+strtoint(copy(s,0,pos('+',s)-1));
delete(s,0,pos('+',s)+);
i:=i-strtoint(copy(s2,0,pos('-',s)-1));
delete(s,0,pos('-',s)+1);
end;

может кто то знает как это реализовать ?

[Serge_Bliznykov]

я выкладывал готовый парсер - тут

p.s. там исходники, код несложный, легко разберётесь, если нужно.

p.p.s.
Вычисление результата выражений.
Допустимые операции: + - * /
Приоритет обычный, для изменения приоритета допускается задание
скобок ( в т.ч. вложенных).

[RIO]

Да, лучше всего так как написал Serge_Bliznykov, но если хочется пострадать фигней, то можно через цикл for проверять каждый элемент строки на знаки +, - и если такие находятся то складывать или вычитать число предыдущее и следующее. Но а если будет знак * или / тогда задача на порядок усложняется. Поэтому не страдайте фигней и используйте парсер

[Stilet]

А я бы не морочил голову а скормил бы все это Экзелу, или какому нить ОпенОфису:
http://www.programmersforum.ru/showthread.php?t=100279

[designer999]

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

А я бы не морочил голову а скормил бы все это Экзелу, или какому нить ОпенОфису:
http://www.programmersforum.ru/showthread.php?t=100279

я то посмотрел на ваш пример, но честно говоря не понял как это реализовать)

[Stilet]

Дык просто бери код и вставляй, не забыв оказать в дизайне события соответствующие.
Он откроет Экзель, скормит ему формулу в ячейку (Экзель сразу ее посчитает, он умный), и получит результат, который выведет в заголовок формы

[designer999]

если не сложно подскажите кодом, и что такое Экзель пытался поискать в google инфы по нём нету)

[_SERGEYX_]

Экзель - это Excel.
По сабжу:
Компоненты CalcExpress и DiffExpress - это интерпретаторы для вычисления математических выражений. Поддерживают 5 операций, скобки, 18 математических функций и определение пользовательских переменных.

P.S. Я когда-то писал программу с БД и в одно из строковых полей вставлял формулу (типа Summa = "(Kolichestvo * Cena) + NDS"), по которой какие-то поля этой строки должны рассчитываться. А бухгалтер при необходимости могла сама изменять формулу (разумеется, только с существующими переменными). Мне же самому ЛЕНЬ изменять формулу и перекомпилировать программу. Ох, всё от лени.
Все это выглядело очень эффектно :=))

[designer999]

я вот не пойму причём тут формула)))) тут же не по формуле нужно что то сделать, а сделать действия над числами(-,+)

поставил DiffExpress.pas, думал так разберусь глянув в компонент) но не тут то оно было

вот что это значит из примера ?

DiffExpress1.Formula := ExprEdt.Text;
ShowMessage('diff('+DiffExpress1.Fo rmula+','+VarEdt.Text+')='+DiffExpr ess1.diff(VarEdt.Text));

[Stilet]

если не сложно подскажите кодом

А что по ссылке что я дал кода нет?

тут же не по формуле нужно что то сделать, а сделать действия над числами

А это не формула???? Или понятие "формула" уже переделали?

Кстати вспомнил тут еще один финт

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ADOQuery1: TADOQuery;
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 ADOQuery1.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=master;Data Source=a25';
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then begin
  with ADOQuery1 do begin
   SQL.Text:='select '+Edit1.Text;
   Open;
   if not Eof then   Caption:=Fields[0].AsString;
   close;
  end;
 end;
end;

end.

Теперь напрягается не Экзель а MS SQL.