Как ввести любую математическую функцию?

[dabulkhairb]

Как ввести любую математическую функцию, в созданной программе (не в коде). Например, в edit'e или textbox'e вводишь какую-нибудь функцию (sin(log(x)), exp(2*x)) и программа выполняет заданную операцию (и выводит результат)?

СПАСИБО!!!!!!!!!!!!!!!!

[Stilet]

НАйти компоненты-эвалюаторы типа TCalc

[Arigato]

А можно написать функцию-парсер математических выражений.

[Bayazet]

парсер - это очень плохо. я сам с этим сталкивался - делал ввод с клавиатуры общего вида последовательности и функции, просто огромный кусок геммороя.
лучше поищи компоненты-эвалюаторы типа TCalc или давай вместе ждать еще вариантов решения проблемы.
мне очень интересно

[Arigato]

парсер - это очень плохо.

Почему это плохо? Куда лучше, чем тупо ждать, когда кто-то что-то сделает. Ничего там очень сложного нет.

[alexBlack]

Еще вариант - ScriptControl

[Bayazet]

Сообщение от Arigato

Куда лучше, чем тупо ждать, когда кто-то что-то сделает. Ничего там очень сложного нет.

я написал, могу даже выложить все это... но это под 2000 строк не самого интересного и рутинного кода

[Bayazet]

пожалуй даже выложу

[SNUPY]

Да ничего сложного в парсере нет ^_^...
2 Bayazet
Коменты это святое ^_^... + можно было на много красиве сделать... даже скажем так:

type
  TFunction= function(X:Extended):Extended;
  TFucntionStr= record
    FName:String;
    Func:TFunction;
    end;
...
var
....
  functions: array[0..3] of TFucntionStr;
....
function MSin(x:Extended):Extended;
begin
  Result:=sin(x);
end;
....
functions[0].FName:='SIN';
functions[0].Func:=Msin;
.....

[Bayazet]

SNUPY , хм, да, действительно, красиво выходит, запомню на будущее

а насчет комментов, это писалось под утро при необходимости утром же это и сдавать человеку, который НИ-ЧЕ-ГО не понимает в программировании. Да и вообще не думал, что когда-нибудь еще буду использовать этот код