Конвертирование из поля 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), то как быть? операции выполняются по приоритету

> alikon1 (10.11.07 16:54) [3]

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

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