Как вставить формулу в текстовом виде в функцию?

← →
Dr. Andrew (2007-09-07 18:35) [0]

Добрый день! Есть функция, в которой переменной нужно присвоить значение, которое есть результат выполнения формулы. Сама формула внесена в редактируемый элемент. Как можно это реализовать. Пожалуйста, небольшой пример. спасибо!
Пример
function MyFunc(Value : Extended): Extended;
var r : Extended
begin
r := Value;
Result := r;
end;

procedure TForm1.OnCreate(Sender : TObject);
begin
Edit1.Text := "a*sin(Theta)";
Edit2.Text := FloatToStr(MyFunc(Edit1.Text));
end;

← →
Вася Правильный (2007-09-07 18:42) [1]

парсинг
ключевое слово для гугла

← →
Denis_ © (2007-09-07 19:38) [2]

Удалено модератором
Примечание: Оффтоп...

← →
Инс © (2007-09-07 19:47) [3]

> Пожалуйста, небольшой пример. спасибо!

Синий, красный, голубой - выбирай себе любой.
http://www.delphikingdom.com/asp/itemq.asp?mode=1&ItemID=62

Удалено модератором
Примечание: Оффтоп...

Как вставить формулу в текстовом виде в функцию? Найти похожие ветки