Простое вычисление строкового выражения

← →
DmitriyG. © (2008-05-04 18:30) [0]

Подскажите как вычислить значение строкового выражения (типа "1+2*3") через функцию eval()? Давно где то видел пример вычисления через IHTMLDocument2, но что то найти не смог...
А получалось очень просто и быстро :-)

← →
palva © (2008-05-04 20:36) [1]

Как-нибудь так?
WebBrowser1.Navigate("about:<script>alert(eval(""1+2*3""));</script>");

← →
Loginov Dmitry © (2008-05-04 21:48) [2]

> Давно где то видел пример вычисления через IHTMLDocument2

А HTMLDocument принципиально? Могу предложить альтернативный подход:

1. Делаешь Inport Type Library для Microsoft Script Control 2. Подключаешь модуль MSScriptControl_TLB 3. Вставляешь код: procedure TForm1.Button1Click(Sender: TObject); var SC: TScriptControl; begin SC := TScriptControl.Create (Self); try SC.Language:="VBScript"; Label1.Caption := SC.Eval(Edit1.Text); finally SC.Free; end; end;

← →
Григорьев Антон © (2008-05-05 09:52) [3]

http://www.delphikingdom.com/asp/itemq.asp?mode=1&ItemID=432

WebBrowser1.Navigate("http://www.google.com/search?q=1%2B2%2A3&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D0%B2+Google&meta=");

потом парсишь ;)

Простое вычисление строкового выражения Найти похожие ветки