Чтение функции из строки?

[StakanpORTvejna]

Как сделать чтобы можно было из эдита выделить функцию..Например если мы в эдите написали "x*x+2*(3/5*3) "ну или что-нить подобное,то можно было бы это посчитать..Единственное что пока знаю что можно применить:

function IsFloat(ch : char; st: string) : Boolean;
begin
   if      (ch >= '0') and (ch <= '9') // цифры
        or (ch = #13)                  // клавиша <Enter>
        or (ch = #8)                    // клавиша <Back Space>
        or (ch='+')
        or (ch='-')
        or (ch='/')
        or (ch='*')
or (ch='(')
or (ch=')')

   then
        begin
          IsFloat := True;  // символ верный
          Exit;            // выход из функции
        end;

   case ch of
      '-': if Length(st) = 0 then IsFloat := True;
      ',': if    ( Pos(',',st) = 0)
             and (st[Length(st)] >= '0')
             and (st[Length(st)] <= '9')
           then // разделитель можно ввести только после цифры
                // и если он еще не введен
                    IsFloat := True;
      else // остальные символы запрещены
           IsFloat := False;
    end;
end;

Вот этот вот код отвечает за проверку вводимых символов..

[Izhic]

Можно применить регулярные выражения

http://regexpstudio.com/

[DeKot]

Попробуйте следующий алгоритм:
1. { Ввод только цифр и знаков(математ. действия) }:
if not (Key in ['0'..'9', ',', '-', '+', '*', '/']) then Key:= #0;
2.Используйте функцию Ord(Key) в процедуре TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); - перевод символов (Char) в код (byte).
3.Как только появляется знак операции - выполнить арифметическое действие с предыдущим числом и последующимм . Результат вычислений будет "предыдущим " числом.
В принципе это тот же простейший калькулятор.
Во вложении пример.Там коменты подробные, разберитесь - думаю попможет.

[StakanpORTvejna]

а что-нибудь вида "x*lnx-x^2+3*x-1" чтобы решал?это надо переписать калькулятор или синтаксический анализ читать..но нема времени..может есть у кого что-нибудь?)

[DomiNick]

Ну смотря что и как именно надо сделать...

Вообще есть компоненты специальные, но их нужно искать и дополнительно устанавливать...

А можно попробовать и самостоятельно написать...