| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

DmitriyG. ©   (2008-05-04 18:30:00) 

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

---

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

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

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

---

DmitriyG.   (2008-05-05 12:30:00) [2]

OK

---

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

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

---

Loginov Dmitry   (2008-05-04 21:48:00) [4]

> Давно где то видел пример вычисления через 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;



---

palva   (2008-05-04 20:36:00) [5]

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

---

Наверх