считывание констант

[artemavd]

День добрый, коллеги!). Мне нужна программа, которая бы делала следующее: на форме есть Edit. Туда вводится какая то функция, например, ax+bx+dc. Здесь a,b,d-константы. Мне надо, чтобы по нажатию кнопки, эти константы считывались и заносились, например, в таблицу. Как написать процедуру этого самого считывания констант? может кто то делал пободную процедуру? буду благодарен за помощь.

[_SERGEYX_]

Компонент CalcExpress тебе в помощь

[artemavd]

Компонент CalcExpress тебе в помощь

И что это за компонент? Где он находится? Как им пользоваться? Только не надо писать заумные фразы типа "читай справку". Я за помощью обратился сюда.

[_SERGEYX_]

CalcExpress - это интерпретатор для вычисления как простых, так и сложных математических выражений. Поддерживает 5 операций, скобки, 18 математических функций и определение пользовательских переменных.

Скачать можно здесь.

[artemavd]

А другими способами нельзя сделать это?)

[puporev]

Туда вводится какая то функция, например, ax+bx+dc. Здесь a,b,d-константы.

Извлечь необходимые данные из строки не проблема, только нужно точно знать как устроена строка. Думаю приведеный пример не отражает все возможные случаи. Если вопрос еще актуален, немного расширьте условие.
Конкрктно по этому примеру
s:=Edit1.text;
j:=0;
for i:=1 to length(s) do
if (i=1) or (s[i-1]='+') then
begin
inc(j);
StringGrid1.Cells[j-1,0]:=s[i];
end;

[_SERGEYX_]

Не получится так строку анализировать.
А если в строке написано
222.125555555555/sin(x+y)/5.9999999999999999999999?

Уж, лучше так..

var args: array[0..10] of extended;
x: extended;
const
a: Extended = 10;
b: Extended = 20;
d: Extended = 30;
begin
  x:=5;
  //Можно поставить сразу в свойствах
  CalcExpress1.Variables.Add('a');
  CalcExpress1.Variables.Add('b');
  CalcExpress1.Variables.Add('d');
  CalcExpress1.Variables.Add('x');
  args[0] := a;
  args[1] := b;
  args[2] := d;
  args[3] := x;
  //Знак умножения придется ставить
  CalcExpress1.Formula := 'a*x+b*x+d*x';
  ShowMessage(FloatToStr(CalcExpress1.calc(args)));
end;

[artemavd]

Я виноват, я не уточнил. Вводимое уравнение всегда будет иметь такой вид, который я написал. То есть будет например либо 2*х1+3*х2+6*х3=const либо 3*х2+6*х3. Не больше трех и не меньше двух. Ничего из тригонометрии не будет никогда.
_SERGEYX_, ваша ссылка не работает. не открывается(

[_SERGEYX_]

Проверил. Работает ссылка.
Вот прямая
http://www.softsl.com/myfiles/components/calc.zip

[artemavd]

Я виноват, я не уточнил. Вводимое уравнение всегда будет иметь такой вид, который я написал. То есть будет например либо 2*х1+3*х2+6*х3=const либо 3*х2+6*х3. Не больше трех и не меньше двух. Ничего из тригонометрии не будет никогда.

а к тому что я написал можете привести пример кода?