Конвертирование из поля Edit в нормальный знак.

[alikon1]

Подскажите пожалуйста. Как сделать так, чтоб при вводе в поле (допустим edit1) текста 2+2+2 потом можно было это все посчитать, а то inttostr знаки не конвертирует.

допустим.
var a:integer;
begin
a:=inttostr(edit1.Text); // где edit1.Text = '2+2+2'
edit1.Text:=inttostr(a); // где a уже должна быть = 6
end;

Выручайте.

[mutabor]

a:=inttostr(edit1.Text);

во первых здесь нужен StrToInt, а во вторых таким способом ты ничего не добьешься, тут нужно строку по символам разобрать, и на основе этого делать те или иные вычисления

[Rapid]

Как сделать так, чтоб при вводе в поле (допустим edit1) текста 2+2+2 потом можно было это все посчитать

У меня была такая же проблема. Ее можно решить несколькими способами
1. Написать процедуру, которая будет обрабатывать строку (с 4 знаками это не сложно, но придется помучится со скобками
2. Использовать готовый компонент Express (его нужно устанавливать с диска или скачать где нибудь)

[mihali4]

"Прямой" способ:
1. Выделяем все числа в массив.
2. Параллельно выделяем все знаки в отдельный стринг.
3. Берем первое и второе число, анализируем первый знак, производим вычисления. И так далее.
Это - только для вычислений без приоритетов (скобок).

[Alex21]

Расчет формул из двух значений (6 Кб):
http://programmersforum.ru/attachmen...8&d=1182363718

[alikon1]

а если такой случай 2+3*5+7^2*2!+sin(60+30), то как быть? операции выполняются по приоритету

[alikon1]

Rapid писал:
2. Использовать готовый компонент Express (его нужно устанавливать с диска или скачать где нибудь)

А может кто-нибудь поподробней рассказать, или где почитать можно? Очень надо

Rapid,помоги пожалуйста. dzhambula@mail.ru

[zetrix]

Ну сколько можно? Используйте поиск по форуму.
http://www.programmersforum.ru/showthread.php?t=6568

[Rapid]

Приветствую.
Сорри, что не ответил сразу (писал курсач по фин анализу)
Компонент разместил во вложении.
http://www.programmersforum.ru/attac...1&d=1194858399
Чтобы установить компонент нужно сделать следующее
1. Войти в Дельфи, закрой все
2. Выбрать Компонент-Инсталлировать компонент
3. В первой строке диалога укажи имя компонент (задай путь)-это файл с расширением .pas
4. Жми ОК и дальше появится диалог, жми инсталлировать компонент (если кнопка инсталлировать не активна, перекомпилируй проект или попробуй еще раз все повторить)
5. Папку, в которой находятся исходники никуда не перемещай(лучше сразу засунь ее туда где трогать ее не будешь)
6. Жми закрыть и сохранить
Компонент должен появиться на закладке "Образцы"

Простой пример использования

Express1.Expression:=Edit1.Text;//В эдите например sin(10)+5*4-22
VRes:=Express1.TheFunction(0,0,0); // Переменная VRES типа Real
Edit2.Text:=FloatToStr(VRes);

А вообще инсталляция компонентов хорошо описана в Библии программиста, которую можно скачать с форума.

[JTG]

Дельфийский класс TParser блин!!! Он умеет выражения считать