Код символа

← →
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 © (18.06.04 17:23) [8]

Он же все равно возьмет первый работающий совет.
Кстати, сам я всегда так переводил т.к. не люблю запоминать названия функций.
Слова byte и integer - регулярно употребляю, а ord - отдельно запоминать надо.

Код символа Найти похожие ветки