копирование всей tEdit

[мормончик]

суть такова: в поле тЕдит вводится какая-нибудь формула, и надо её скопировать всю, чтобы передать в процедуру для подсчета
например 3*exp(5*x*x-2*x)
как реализовать?

отдельно типа StrToFloat (edit1.text) не работает)

[Serge_Bliznykov]

Э нет! просто так не получится! Кто-то должен понимать, что Вы там написали, и вычислять это выражение (тем более, с импользованием переменных)!

Надо прикручивать парсер арифметических выражений.
Либо можно взять готовый компонент,
либо написать свой.

примеры можно легко найти поиском. Простой готовый пример можно взять, например, ТУТ.

p.s. кстати, на форуме были и более экзотические варианты:
- дёргать MS Excel через OLE и заставлять вычислять выражение Excel.
- или делать запрос к ядру MS Access (через ADO), вычисляя выражение в SQL запросе...

[мормончик]

спасибо, попробую разобраться

[Stilet]

и надо её скопировать всю

Что-то я не понял зачем копировать всю. и куда копировать?
Если всю нужно передать в некую процедуру то

Процедура(Edit1.Text);

И пусть она разбирается с выражением.

[мормончик]

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

Что-то я не понял зачем копировать всю. и куда копировать?
Если всю нужно передать в некую процедуру то

Процедура(Edit1.Text);

И пусть она разбирается с выражением.

function Func1( k : real; x : real ) : real;
begin
result := Func2(x, [k+1]) * ( Edit1.Text);
end;

а в Edit1.Text как я писал может быть (2*x+exp(x*x-4)), или х*х, вобщем любое там может быть, руками вбивать надо. не понимаю как сделать(

[Пепел Феникса]

первый ответ читаем до понимания. и советую сходить по ссылке

[мормончик]

ребят, опять я =(
в общем сделано было так (тупо, но работает):
при вызове процедуры вызывается парсер, который считывает строку, считает что там получилось и дает и ответ, и так скажем миллион раз. если не считывать строку (т.е. сразу заложить данную строку в текст), то прога считает 1 минуту, а когда с парсером - 20 минут. можно ли как-нибудь сделать считывание 1 раз и чтобы запомнилось оно?

1) вариант без парсера

function PodIntFunc( k : integer; x : extended ) : extended;
begin
   result := FuncFi(x, Mu[k+1]) * exp( - 4 * ( x - 2 ) * ( x - 2 ));
end;

2) с парсером

procedure asd(x:extended);
begin
   form2.result.text:=FloatToStr(x);   - загоняю текущее значение переменной Х
   form2.edit1.text:=aaa;   - присваваю нужную строку для считывания (строка предварительно присваивается в переменную)
   form2.Button1.Click;        - жму считать
   funс:=StrToFloat(form2.result.text);     - получаю ответ
end;

function PodIntFunc( k : integer; x : extended ) : extended;
begin
  asd(x);
  result := FuncFi(x, Mu[k+1]) *funс;
end;

я читал про какие-то регулярные выражения, но даже прочитав инструкцию в архиве с ними, не понял как работают примеры и не знаю как сделать(((((((

[мормончик]

ребят, помогите с рег.выражениями плз

[Человек_Борща]

есть такая штука как TRegExp (Ищем в гугле).

[мормончик]

так я же написал, что не понял как они работают, я скачал архив с сайта, посмотрел примеры, посмотрел хелп, но не понял =(