Текущий архив: 2004.07.04;
Скачать: CL | DM;
Вниз
Код символа Найти похожие ветки
← →
Vadim (2004-06-18 17:06) [0]Как узнать код символа? какой командой?
← →
Рыба © (2004-06-18 17:07) [1]Ord
← →
Anatoly Podgoretsky © (2004-06-18 17:08) [2]Можно функцией ORD
← →
YurikGL © (2004-06-18 17:13) [3]ch:char
i:integer
можно i:=byte(ch)
← →
Anatoly Podgoretsky © (2004-06-18 17:15) [4]YurikGL © (18.06.04 17:13) [3]
Нельзя char может быть и 16 битный, ты не смотри, что он сейчас 8 бит, ты смотри предупреждение Борланда по этому поводу!
← →
Рыба © (2004-06-18 17:18) [5]А можно так:
function OrdIzvrat(C: Char): Byte;
bagin
for Result := 0 to 255 do
if C = Chr(Result) then Break;
end;
← →
YurikGL © (2004-06-18 17:19) [6]
> Anatoly Podgoretsky © (18.06.04 17:15) [4]
Значит
i:=integer(ch) :)
← →
Vadim (2004-06-18 17:20) [7]хватит и ORD
← →
Anatoly Podgoretsky © (2004-06-18 17:23) [8]YurikGL © (18.06.04 17:19) [6]
А зачем извращения? Чтобы помучился?
← →
YurikGL © (2004-06-18 17:29) [9]
> Anatoly Podgoretsky © (18.06.04 17:23) [8]
Он же все равно возьмет первый работающий совет.
Кстати, сам я всегда так переводил т.к. не люблю запоминать названия функций.
Слова byte и integer - регулярно употребляю, а ord - отдельно запоминать надо.
Страницы: 1 вся ветка
Текущий архив: 2004.07.04;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.04 c
