[Hetrue]

здравствуйте, кодеры!
я бы хотел узнать, у меня задание сделать калькулятор, НО необходимо сделать в нём СКОБКИ, не могли бы вы как то помочь, мне с этим. Заранее благодарю!

[m1sclick]

Что именно подразумевается под словом СКОБКИ?

[ChinYan]

здравствуйте, кодеры!

Спасибо за такое уважение...
Как вариант парсить выражение и находить парные скобки. Вычислять их значение, складывать его куда-нибудь. Потом просто вычислять слева-направо, и дойдя до скобки брать ранее посчитанное и использовать

[Bargest]

ИМХО самое простое решение - т.н. "Обратная польская нотация". Реализация есть в интернете.

[NumLock]

легко считает даже функции "(Math.sqrt(9)+47)*100":

Код:

uses
  ComObj,

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit: TEdit;
    procedure Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);
var
  WebBrowser: OleVariant;
begin
  WebBrowser:=CreateOleObject('InternetExplorer.Application');
  WebBrowser.Navigate('about:blank');
  WebBrowser.Document.parentWindow.execScript('var r='+Edit.Text+'; document.write(r);', 'javascript');
  ShowMessage(WebBrowser.Document.body.innerText);
  WebBrowser.Quit;
end;

http://data.cod.ru/134562

[Hetrue]

Благодарю всех за помощь!

[Hetrue]

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

легко считает даже функции "(Math.sqrt(9)+47)*100":

Код:

uses
  ComObj,

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit: TEdit;
    procedure Button1Click(Sender: TObject);

procedure TForm1.Button1Click(Sender: TObject);
var
  WebBrowser: OleVariant;
begin
  WebBrowser:=CreateOleObject('InternetExplorer.Application');
  WebBrowser.Navigate('about:blank');
  WebBrowser.Document.parentWindow.execScript('var r='+Edit.Text+'; document.write(r);', 'javascript');
  ShowMessage(WebBrowser.Document.body.innerText);
  WebBrowser.Quit;
end;

http://data.cod.ru/134562

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

[Страдалецъ]

Затем, что разбирает ваше выражение и считает именно он.

[PhoeniX]

Ну, не совсем он. Считает выражение JavaScript, встроенный в Internet Explorer, экземпляр которого и создаётся.
Кстати, как раз вчера хотел предложить аналогичное решение...

[NumLock]

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

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

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

добавлено позже

вот здесь можно посмотреть на все функции:
http://www.delphisources.ru/forum/sh...3&postcount=23

[NumLock]

можно еще IScriptControl использовать:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  ActiveX,
  ComObj,
  MSScriptControl in 'MSScriptControl.pas';

var
  ScriptControl: IScriptControl;
  Expression: OleVariant;
  Eval: String;

begin
  Expression:='Math.sqrt(9)*5+85';
  OleInitialize(nil);
  ScriptControl:=CreateComObject(CLASS_ScriptControl) as IScriptControl;
  ScriptControl.Language:='javascript';
  Eval:=ScriptControl.Eval(Expression);
  Writeln(Expression+' = '+Eval);
  Readln;
end.

[Hetrue]

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

можно еще IScriptControl использовать:

Код:

program Project1;

{$APPTYPE CONSOLE}

uses
  ActiveX,
  ComObj,
  MSScriptControl in 'MSScriptControl.pas';

var
  ScriptControl: IScriptControl;
  Expression: OleVariant;
  Eval: String;

begin
  Expression:='Math.sqrt(9)*5+85';
  OleInitialize(nil);
  ScriptControl:=CreateComObject(CLASS_ScriptControl) as IScriptControl;
  ScriptControl.Language:='javascript';
  Eval:=ScriptControl.Eval(Expression);
  Writeln(Expression+' = '+Eval);
  Readln;
end.

я благодарю вас за помощь, но проблема в том что я практически ничего здесь не понимаю

[NumLock]

тут вообще все просто: в Expression вводишь выражение, можно со скобками, которое нужно вычислить, в Eval получаешь результат. на остальные строки не обращай внимания