Преобразование символа в цифру

@ProgLab · Регистрация: 09.11.2010

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

Привет всем. Не сочтите за тупого, но есть у меня такая проблема. С помощью chr(x) можно получить символ который означает цифра x, а есть ли функция которая делает наоборот?

@Rolion · 04.03.2011, 22:19

Delphi

1	ord('ваш символ');

@Puporev · 05.03.2011, 10:00

Если речь идет именно о цифрах, то нужно так

Delphi

var c:char;
     n:byte;
............
n:=ord(c)-48;

иначе получим не значение, а код символа...

@Ksenya100 · 05.03.2011, 12:58

strtoint(555)
и можно производить например математические операции с числом 555

@Puporev · 05.03.2011, 13:10

Ksenya100, Во первых
strtoint('555') ;
а во вторых в Паскале нет этой функции.

Добавлено через 1 минуту
Пардон, это раздел Делфи оказывается....

@Ksenya100 · 05.03.2011, 14:42

ой, на счет кавычек правда... недоглядела, просто обычно использую это преобразование как-то так

Код

strtoint(Edit1.text);

a если число не целое, то можно strtofloat использовать

@ProgLab 24 / 24 / 0 Регистрация: 09.11.2010 Сообщений: 190
		1
	Преобразование символа в цифру 04.03.2011, 22:16. Показов 9217. Ответов 5 Метки нет (Все метки) Привет всем. Не сочтите за тупого, но есть у меня такая проблема. С помощью chr(x) можно получить символ который означает цифра x, а есть ли функция которая делает наоборот? 0

@Ksenya100 72 / 64 / 3 Регистрация: 13.05.2010 Сообщений: 349
	05.03.2011, 12:58	4
	strtoint(555) и можно производить например математические операции с числом 555 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.03.2011, 13:10	5
	Ksenya100, Во первых strtoint('555') ; а во вторых в Паскале нет этой функции. Добавлено через 1 минуту Пардон, это раздел Делфи оказывается.... 0

@Ksenya100 72 / 64 / 3 Регистрация: 13.05.2010 Сообщений: 349
	05.03.2011, 14:42	6
	ой, на счет кавычек правда... недоглядела, просто обычно использую это преобразование как-то так Код strtoint(Edit1.text); a если число не целое, то можно strtofloat использовать 0