Скачать: CL | DM;

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

← →
alikon1   (2007-11-10 15:26) [0]

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

Выручайте.

---

← →
Dib@zol ©   (2007-11-10 15:36) [1]

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

---

← →
Kolan ©   (2007-11-10 15:40) [2]

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

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

---

← →
alikon1   (2007-11-10 16:54) [3]

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

---

← →
Германн ©   (2007-11-10 17:02) [4]

> alikon1   (10.11.07 16:54) [3]

http://delphimaster.net/view/2-1194237848/

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c