| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

разделить char на 2 байта

Страницы:   < 1 2 >

Gu ©   (2011-12-06 17:27:00) 

delphi xe.
type c:char, где ord(c)=0..65535;

нет ли каких процедур, которые бы делали это

procedure Char2Bytes(c:char;var x,x1:byte);
и обратная
procedure Bytes2Char(x,x1:byte;var c:char);

и если нет, то как это лучше сделать (перевести char в двухбайтовое представление и обратно)?

---

Gu   (2011-12-06 17:34:00) [21]

> депутатъ   (06.12.11 17:29) [1]

спасибо. встроеного (готовых процедур) я так понимаю ничего нет?

---

Ega23   (2011-12-06 17:32:00) [22]

А зачем?
Есть Char, есть AnsiChar. Неужели недостаточно???

---

депутатъ   (2011-12-06 17:29:00) [23]

x1 := Ord(c) mod 256; x2 := Ord(c) div 256;

c := Chr(x1 + 256 * x2);

---

Страницы:   < 1 2 >

Наверх