Скачать: CL | DM;

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

← →
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

---

← →
DmitriyG. ©   (2008-05-05 12:30) [4]

OK

---

← →
Дмитрий Белькевич ©   (2008-05-09 01:29) [5]

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=");

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c