Форум: "Основная";
Текущий архив: 2002.02.14;
Скачать: [xml.tar.bz2];
ВнизЭтот вопрос скорее всего уже всплывал.... Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c