Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.03.2010, 15:01   #1
Rock'n'rolla
Пользователь
 
Аватар для Rock'n'rolla
 
Регистрация: 20.01.2010
Сообщений: 30
Вопрос Написание несложной мат. функции

Есть строка:
var i = 4; i = i + 12; i = i + 20; i = i + 12; i = i * 12; i = i - 10; i = i - 556;

Эта строка парсится из хтмл кода страницы.
Подскажите, как будет выглядить функция, которая будет выполнять эти математические преобразования и возвращать i
?

Заранее, большое спасибо.
"Смерть стоит того чтобы жить, а любовь стоит того чтобы ждать..." (с)
Rock'n'rolla вне форума Ответить с цитированием
Старый 22.03.2010, 17:01   #2
MalCer
Форумчанин
 
Аватар для MalCer
 
Регистрация: 15.07.2008
Сообщений: 615
По умолчанию

Код:
function blabla(i:integer):integer;
begin
   i := 4;
   i := i + 12;
   i := i + 20;
   i := i + 12;
   i := i * 12;
   i := i - 10;
   i := i - 556;
   Result:=i;
end;
Использование
Код:
ShowMessage(IntToStr(blabla(4)));
xor eax, eax
xchg [eax], eax
MalCer вне форума Ответить с цитированием
Старый 22.03.2010, 18:50   #3
W0LF
Форумчанин
 
Аватар для W0LF
 
Регистрация: 28.03.2008
Сообщений: 940
По умолчанию

а если уравнения страница другие даст, вышеуказанный подход не подойдет, я понял, что ТС нужно что-то наподобие интерпретатора паскаля...
Вам помогут, например, - Pascal Script, paxCompiler, еще в JVCL есть JvInterpreter с Demo.

-ДОБАВЛЕНО-
Пример в аттаче, для компилирования нужен Pascal Script, в архиве есть так же EXE. Вырываете строку из вашей страницы, добавляете перед "=" знак ":", что бы получить знак присваивания паскаля ":=" и вставляете в Source компонента и при компиляции оно вам выдаст результат... Вообщем компиляция в примере, вам осталось привести до путя ваши формулы и поставить в место тех, что в примере...
P.S.: да, кстати, там integer работает с делением "/" так что если в формуле будет деление, то все должно пройти на ура
Надеюсь на плюсик
Вложения
Тип файла: rar TestApp.rar (251.9 Кб, 8 просмотров)

Последний раз редактировалось W0LF; 22.03.2010 в 19:46.
W0LF вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Написание Функции palevo Помощь студентам 2 15.12.2009 19:03
Написание программы с использованием функции Ветас Помощь студентам 5 08.11.2009 14:31
Написание пользовательской функции. GoreProgrammist Microsoft Office Excel 9 15.07.2009 15:28
Помогите с несложной задачкой на С++ Olya90 Помощь студентам 1 04.05.2009 21:33
Вопрос про правильное написание функции AndreichSB Microsoft Office Excel 6 25.12.2006 19:27