Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.14;
Скачать: CL | DM;

Вниз

Этот вопрос скорее всего уже всплывал....   Найти похожие ветки 

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

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


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

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


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

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

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


 
Rem ©   (2002-01-31 11:36) [3]

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

function BinStrToByte(a_sBinStr: string): byte;
var
i: integer;
begin
Result := 0;
for i := 1 to length(a_sBinStr) do
Result := (Result shl 1) or byte(a_sBinStr[i] = "1");
end;

function ByteToBinStr(a_bByte: byte): string;
var
i: integer;
begin
SetLength(Result, 8);
for i := 8 downto 1 do
begin
Result[i] := chr($30 + (a_bByte and 1));
a_bByte := a_bByte shr 1;
end;
end;


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



Страницы: 1 вся ветка

Текущий архив: 2002.02.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.011 c
7-42875
pOintID
2001-11-07 16:09
2002.02.14
MDI


14-42868
Voron
2001-12-26 11:33
2002.02.14
К создателям сайта: что с поиском твориться?


14-42841
Skyter
2001-12-21 16:39
2002.02.14
Люди подскажите новостную группу по дельфям сенькаю.


14-42838
artur
2001-12-25 10:32
2002.02.14
какой delphi устанавливается под windows 2000


4-42898
M O'Hare
2001-12-13 11:24
2002.02.14
Новый вопрос на старую тему - список всех задач