из Char в Integer

[mihali4]

Работает:
a[0]:=chr(((ord(a[0])-48)*2)+48);

[Serge_Bliznykov]

a[0]:=chr(((ord(a[0])-48)*2)+48);

а что будет, если там число больше 5-ти? Всё нормально?

если так уже реально нужно первое число в строке умножит на два
я бы предложил такой вариант:

a := IntToStr( StrToInt(a[1])*2) + Copy(a,2,Length(a)-1);

Хотя, конечно, по хорошему, надо перед этим кодом проверить, что a[1] in ['0'..'9']

Мой пример написан исключительно для a : string
А вот почему вместо array[0..20] of char не использовать string - для меня лично загадка...

[Stilet]

надо из массива символов взять 1 символ и умножить его на 2.

Речь идет о символе. господа, а не о его числовом виде.
А если там буква будет? Массив то символьный, а автор совсем не приложил никаких усилий пояснить, так что пусть хлебает щи лаптем.

[mihali4]

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

а что будет, если там число больше 5-ти? Всё нормально?

Дружище, как любит говаривать уважаемый Стилет - "пусть ТС немного ипользует и свой МОСК"

[Serge_Bliznykov]

А если там буква будет? Массив то символьный, а автор совсем не приложил никаких усилий пояснить

сурово, но справедливо!

Дружище, как любит говаривать уважаемый Стилет - "пусть ТС немного ипользует и свой МОСК"

Да кто ж против?! Я только ЗА!

[Stilet]

как любит говаривать

Я такого разве коварить когда-то нибудь ?
Ну все с Wiskey пора завязывать...