Текущий архив: 2008.06.01;
Скачать: 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 вся ветка
Текущий архив: 2008.06.01;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.017 c
