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

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

Этот вопрос скорее всего уже всплывал.... [D5, Win2k]

Василий Свиридов ©   (2002-01-31 03:20:00) 

... но в поиске я его не нашел.
А вопрос такой, как преобразовать string в binary, хотя-бы один символ (из ASCII таблицы), и наоборот.

---

Rem   (2002-01-31 11:36:00) [1]

Надеюсь, что приведенные ниже функции помогут Вам:

functionBinStrToByte(a_sBinStr: string): byte;
var
i: integer;
begin
Result := 0;
fori := 1 tolength(a_sBinStr) do
Result := (Result shl1) orbyte(a_sBinStr[i] = "1");
end;

functionByteToBinStr(a_bByte: byte): string;
var
i: integer;
begin
SetLength(Result, 8);
fori := 8 downto1 do
begin
Result[i] := chr($30 + (a_bByte and1));
a_bByte := a_bByte shr1;
end;
end;

Примечание: вторая функция использует тот факт, что в таблице ANSI коды "0" = $30 и "1" = $31

---

Василий Свиридов   (2002-01-31 05:15:00) [2]

Ну на самом деле мне нужно из, например, "Q" получит "1010001"

Или наоборот из "1000111" получить G

---

~Sergius   (2002-01-31 04:16:00) [3]

var b: byte;
s: string;
begin
s := "string";
b := Ord(S[1]) ???
end;

---

Наверх