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

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

Перевод символов в бинарный код

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

Oksana_new ©   (2006-10-12 19:36:00) 

Подскажите функцию перевод символов в бинарный код

---

default   (2006-10-12 20:18:00) [21]

в шестёрке то есть
вот код её если что

function IntToBin(Value: cardinal): string;
var
 i: Integer;
begin
 SetLength(result, 32);
 for i := 1 to 32 do
 begin
   if ((Value shl (i - 1)) shr 31) = 0 then
     result[i] := '0' {do not localize}
   else
     result[i] := '1'; {do not localize}
 end;
end;
Borland copyright

---

Zeqfreed   (2006-10-12 20:08:00) [22]

> [12] default ©   (12.10.06 20:05)

И в семерке нет :) Может быть имелась в виду HexToBin? Но она, вроде, к сабжу отношения мало имеет.

---

default   (2006-10-12 20:05:00) [23]

Zeqfreed ©   (12.10.06 20:04) [11]
в семёрке есть

---

Zeqfreed   (2006-10-12 20:04:00) [24]

> [9] default ©   (12.10.06 20:01)

Topic not available
The requested topic is not available. Some possible reasons and remedies:
<skipped>

Турбо Делфай.

---

default   (2006-10-12 20:02:00) [25]

Oksana_new ©   (12.10.06 19:52) [7]
нет

---

default   (2006-10-12 20:01:00) [26]

Zeqfreed ©   (12.10.06 19:50) [6]
да
F1 по ней щёлкни и посмотри в каком модуле сидит

---

@!!ex   (2006-10-12 19:59:00) [27]

> Oksana_new ©   (12.10.06 19:52) [7]

По идее, чисто теоретически, он в бинарном коде и читается.
Просто Операционка заточена на то, чтобы показывать данные в десятиричном представлении.

---

Oksana_new   (2006-10-12 19:52:00) [28]

> Что такое "бинарный код"? Строка, содержащая 0 и 1?


Да


> Окси, может тебе надо IntToBin(Ord(CharVar)) ?

Попробую эту, а нет функции которая сразу считывает файл в бинарном коде?

---

Zeqfreed   (2006-10-12 19:50:00) [29]

> [5] default ©   (12.10.06 19:48)

А такая существует?

---

default   (2006-10-12 19:48:00) [30]

Окси, может тебе надо IntToBin(Ord(CharVar)) ?

---

Zeqfreed   (2006-10-12 19:47:00) [31]

Придется писать самостоятельно.

---

Джо   (2006-10-12 19:46:00) [32]

> [2] Oksana_new ©   (12.10.06 19:44)
> Нет, ord  возвращает код символа по таблицы ASCII. А мне
> нужен бинарный код (10101010)

Что такое "бинарный код"? Строка, содержащая 0 и 1?

---

Oksana_new   (2006-10-12 19:44:00) [33]

Нет, ord  возвращает код символа по таблицы ASCII. А мне нужен бинарный код (10101010)

---

Джо   (2006-10-12 19:40:00) [34]

Ord?

---

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

Наверх