Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


alikon1 ©   (2007-11-10 15:26:00) 

Подскажите пожалуйста. Как сделать так, чтоб при вводе в поле (допустим 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;

Выручайте.


Германн   (2007-11-10 17:02:00) [1]


> alikon1   (10.11.07 16:54) [3]

http://delphimaster.ru/cgi-bin/forum.pl?id=1194237848&n=18


alikon1   (2007-11-10 16:54:00) [2]

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


Kolan   (2007-11-10 15:40:00) [3]

> a:=inttostr(edit1.Text); // где edit1.Text = '2+2+2'
> edit1.Text:=inttostr(a); // где a уже должна быть = 6

Не все так просто как ты думаешь в этой жизни. :)
Чтобы такое сделать придется потрудится.


Dib@zol   (2007-11-10 15:36:00) [4]

Анализируй наличие в выражении знаков арифметических действий и выполняй их по мере прохождения по строке.


Наверх

Титульная страница Поиск, карта сайта Написать письмо