Форум: "Прочее";
Текущий архив: 2013.04.21;
Скачать: [xml.tar.bz2];
Вниз
Расчет формул Найти похожие ветки
← →
Votmax (2011-03-24 21:42) [0]Добрый день, необходимо рассчитывать формулы, вводимые пользователем типа y(x). Например sin(x)+cos(x)+x^2..
Подскажите простой компонент!!!
Спасибо!
← →
Игорь Шевченко © (2011-03-24 21:45) [1]http://www.google.ru/search?q=%D0%BF%D0%B0%D1%80%D1%81%D0%B5%D1%80+%D0%BC%D0%B0%D1%82%D0%B5%D0%BC%D0%B0%D1%82%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%B8%D1%85+%D0%B2%D1%8B%D1%80%D0%B0%D0%B6%D0%B5%D0%BD%D0%B8%D0%B9&hl=ru&source=hp&lr=&aq=1&aqi=g2&aql=&oq=%D0%BF%D0%B0%D1%80%D1%81%D0%B5%D1%80+%D0%BC%D0%B0%D1%82%D0%B5
← →
Amoeba_ (2011-03-25 09:31) [2]Парсер комбинированных выражений:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=517
← →
Сергей М. © (2011-03-25 10:16) [3]> Подскажите простой компонент
Microsoft Script Control
← →
Сергей М. © (2011-03-25 10:27) [4]> Votmax
Готовый куркулятор - куда уж проще)
var
sc: Variant;
begin
sc := CreateOleObject("MSScriptControl.ScriptControl");
sc.Language := "VBScript";
sc.AddCode("x=3");
ShowMessage(sc.Eval("sin(x)+cos(x)+x^2"));
end;
← →
Luarvic (2011-03-26 21:08) [5]
> var
> sc: Variant;
> begin
> sc := CreateOleObject("MSScriptControl.ScriptControl");
>
> sc.Language := "VBScript";
> sc.AddCode("x=3");
> ShowMessage(sc.Eval("sin(x)+cos(x)+x^2"));
> end;
Этот код поразил меня до глубины души... Так просто, без установки пакетов, компонентов!
А где можно почитать о возможностях "MSScriptControl.ScriptControl"?
← →
Сергей М. © (2011-03-26 22:59) [6]http://www.podgoretsky.com/Redir.aspx?id=198&DownloadFile=~/ftp/Docs/Delphi/Tenser/7/ScriptControl.doc
← →
Palladin © (2011-03-27 04:38) [7]где? у тебя весь интернет в компутере! или проблемы в гугле строчку "MSScriptControl.ScriptControl delphi" написать?
← →
oldman © (2011-03-28 18:35) [8]Удалено модератором
← →
fox1k (2012-12-22 20:53) [9]Подскажите а реально запихнуть нечто подобное в ScriptControl:
for (i=1;i>4;i++){
c=i;}
if (b>c)
{
a=b+b+b+b+b+b+c+c+c+c+c+c;
}
return a;
}
что бы работало нормально?
p.s. пишу дипломную(интерпритатор opengl es2.0) так как языки похожи хочу обмануть как говорится систему
заранее спасибо!
← →
Anatoly Podgoretsky © (2012-12-22 20:59) [10]> Luarvic (26.03.2011 21:08:05) [5]
Как ни странно, но сайте мс
← →
Сергей М. © (2012-12-22 21:19) [11]
> fox1k (22.12.12 20:53) [9]
Вполне реально.
← →
fox1k (2012-12-23 03:13) [12]ну подскажите как сделать что бы он все обрабатывал нормально?
а то на цикл он чего то ваще забивает.
и как впринципи загнать в него мини прогу?
← →
QAZ9 (2012-12-23 14:02) [13]
> fox1k (22.12.12 20:53) [9]
ты думаешь\уверен что препод настолько тупой?
← →
Сергей М. © (2012-12-23 22:44) [14]
> как сделать что бы он все обрабатывал нормально?
sc.Language := "JScript";
sc.AddCode("for (i=1;i<100;i++)");
ShowMessage(sc.Eval("i"));
Страницы: 1 вся ветка
Форум: "Прочее";
Текущий архив: 2013.04.21;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.026 c
