Скачать: CL | DM;

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

← →
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

---

← →
Denis_ ©   (2007-09-07 19:51) [4]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.988 c