Арифметический знак

@Michalich · Регистрация: 31.08.2011

Author24 — интернет-сервис помощи студентам

Может я сейчас что то неумное спрошу, но сильно не пинайте.
Можно в переменные добавить арифметический знак. Например: в 4 edit записать 5+3=8 , что бы проверить, можно так:

Delphi

a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
d:=a+b;
if c=d

Но если вместо плюса будет минус или умножить, то не плохо было бы этот знак в переменную, или как?

@cfbogd · 24.12.2016, 19:34

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

Можно в переменные добавить арифметический знак

символы можно добавлять только в string и ему подобные

Добавлено через 4 минуты
а если честно, вопрос и правда "неумный", ничего не понятно

@Michalich · 24.12.2016, 19:39 **[ТС]**

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

а если честно, вопрос и правда "неумный", ничего не понятно

Ну не зря я сразу извинился

, сам не знаю как правильно это выразить, как я понимаю проверку примера в данном случае можно делать только так:
if b='+' then // проверяем как плюс
if b='-' then // проверяем как минус
if b='*' then // проверяем как умножить

@cfbogd · 24.12.2016, 19:45

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

if b='-' then

b - integer !

Добавлено через 2 минуты
лучше напишите, что должно быть в первом эдите, что в втором, чего ожидать в четвертом

@Michalich · 24.12.2016, 20:11 **[ТС]**

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

b - integer !

Это я в спешке , будет примерно b1:String;
if b1='-' then d:=a-c;
Вообщем разобрался, спасибо!

@droider · 24.12.2016, 20:16

Michalich, почитайте тему Мини-калькулятор в Delphi. В частности, п. #4 (блок case...of). Там же в п.#6 есть мой архив с исходником.

Добавлено через 1 минуту

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

Вообщем разобрался

Много "if" - не есть хорошо...

@Michalich · 24.12.2016, 22:55 **[ТС]**

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

Michalich, почитайте тему Мини-калькулятор в Delphi. В частности, п. #4 (блок case...of)

Спасибо, прочитал. Переделал под case of

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	24.12.2016, 19:34	2
	Сообщение от Michalich Можно в переменные добавить арифметический знак символы можно добавлять только в string и ему подобные Добавлено через 4 минуты а если честно, вопрос и правда "неумный", ничего не понятно 0

@Michalich 14 / 13 / 2 Регистрация: 31.08.2011 Сообщений: 499
	24.12.2016, 19:39 [ТС]	3
	Сообщение от cfbogd а если честно, вопрос и правда "неумный", ничего не понятно Ну не зря я сразу извинился , сам не знаю как правильно это выразить, как я понимаю проверку примера в данном случае можно делать только так: if b='+' then // проверяем как плюс if b='-' then // проверяем как минус if b='*' then // проверяем как умножить 0

@cfbogd botsik 262 / 262 / 140 Регистрация: 05.06.2016 Сообщений: 1,247 Записей в блоге: 1
	24.12.2016, 19:45	4
	Сообщение от Michalich if b='-' then b - integer ! Добавлено через 2 минуты лучше напишите, что должно быть в первом эдите, что в втором, чего ожидать в четвертом 0

@Michalich 14 / 13 / 2 Регистрация: 31.08.2011 Сообщений: 499
	24.12.2016, 20:11 [ТС]	5
	Сообщение от cfbogd b - integer ! Это я в спешке , будет примерно b1:String; if b1='-' then d:=a-c; Вообщем разобрался, спасибо! 0

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	24.12.2016, 20:16	6
	Michalich, почитайте тему Мини-калькулятор в Delphi. В частности, п. #4 (блок case...of). Там же в п.#6 есть мой архив с исходником. Добавлено через 1 минуту Сообщение от Michalich Вообщем разобрался Много "if" - не есть хорошо... 0

@Michalich 14 / 13 / 2 Регистрация: 31.08.2011 Сообщений: 499
	24.12.2016, 22:55 [ТС]	7
	Сообщение от droider Michalich, почитайте тему Мини-калькулятор в Delphi. В частности, п. #4 (блок case...of) Спасибо, прочитал. Переделал под case of 0