Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: -0.978 c