Байты и биты

[Karp_13]

Щас пока копаюсь в интернете, пытаюсь найти ответ на свой вопрос, но пока решил пробегом запостить его и здесь.))) Если найду удовлетворяющий меня ответ до того, как ответят здесь - удалю темку.)))
И так, к делу:

Байт в "идеале" это 00000000 вот такой вот набор ноликов и единичек. Отсчёт идёт справа налево 0,1,2,3,4,5,6,7 .
Моя цель изменить(если был нолик - записать единичку, если едничка - записать нолик) i-ый бит... ну скажем, 3-ий бит.
У меня небольшая каша в голове насчёт программного представления этого типа данных. Чтобы разобраться, расширяю свою цель до следующего:
Считать откуда нибудь байт(например, читаем с порта LPT). Записать между делом его в edit1 в виде ноликов и единичек. Изменить в считанном байте значение 3-его бита. Записать новый байт между делом в edit2 в виде ноликов и единичек. Послать новый байт туда же, откуда мы его считали...
Варваским методом я проблему решил - получаю байт в десятичной системе исчисления. Процедура1 преобразует десятичное число в двоичную систему исчисления и выдаёт строку string1 ноликов и единичек. Процедура2 меняет по средствам простого условного оператора в строке string1 нужный символ на '0' или '1'. Процедура3 преобразует измененный string1 в число в десятичной системе исчисления и посылает туда же, откуда считали... Чёрт, но это слишком много действий, а у меня каждая миллисекунда на счету %(( ...

Знаю/слышал/ищу, что всё это можно проделать функцией в одну строку, с применением операторов смещения и сравнения... Ну вообщем, вот как то так... Думаю проблематика понятна)))) Прошу помощи)))

[Пепел Феникса]

учим логические операции(not и and) а также битовый сдвиг(shl)

[Karp_13]

Ыть, немного не успел))) Уже нашёл хороший мануал по этому делу)))
http://prg.vedenin.ru/4.php

Но всё равно терзает вопрос:
Можно ли считать байт x:byte ... применить к нему что-то типа inttostr ... и вывести в edit1 сразу строчку из ноликов и единичек...

[0nni]

function BuffToBin(var buff; BuffSize : Integer) : string;
type
  PByteArray = ^TByteArray;
  TByteArray = array [0..0] of byte;
var
  i, j, CharIndex, OutLength : Integer;
  pbuff : PByteArray;
begin
  OutLength := BuffSize shl 4;
  SetLength(result, OutLength);
  pbuff := @buff;
  CharIndex := 1;
  for i := 0 to BuffSize - 1 do
  begin
    for j := 0 to 7 do
    begin
      if (pbuff^[i] and (1 shl j)) = 0 then
        Result[CharIndex] := '0'
        else
        Result[CharIndex] := '1';
      Inc(CharIndex);
    end;
  end;
end;
var

var
  i : Integer;
begin
  i := 1234;
  Edit1.Text := BuffToBin( i, sizeof(i) );

end;

[Баламут]

Может и есть где-то в дебрях Делфи такая функция. Но действительно, запомнить их все задача не для слабаков. А я слабак! И потому обычно сам пишу подобные вещи.

function ByteToStr(n: byte): string;
var
  i: byte;
  b,d: byte;
begin
  for i := 0 to 7 do
  begin
    if i = 0 then d := 128
    else d := d shr 1;
    b := n and d;
    if b = 0 then Result := Result + '0'
    else Result := Result + '1';
  end;
end;

[Serge_Bliznykov]

а вот, до кучи, как эти процедурки реализованы в библиотечке TurboProfessional (Copyright (c) TurboPower Software 1987.)

const
  Digits: array[0..$F] of Char = '0123456789ABCDEF';

function BinaryB(B: Byte): string;
    {-Return binary string for byte}
var
  I, N: Word;
  S: ShortString;
begin
  N := 1;
  S[0] := #8;
  for I := 7 downto 0 do begin
    S[N] := Digits[Ord(B and (1 shl I) <> 0)]; {0 or 1}
    Inc(N);
  end;
  BinaryB := S;
end;

function BinaryL(L: LongInt): string;
    {-Return binary string for LongInt}
var
  I: LongInt;
  N: Byte;
  S: ShortString;
begin
  N := 1;
  S[0] := #32;
  for I := 31 downto 0 do begin
    S[N] := Digits[Ord(L and LongInt(1 shl I) <> 0)]; {0 or 1}
    Inc(N);
  end;
  BinaryL := S;
end;

под Дельфи сделал небольшие доработки (раньше, в TP, все строки были ShortString, а теперь потребовалось ввести дополнительную переменную...)
и ещё, массив Digits может быть сокращён до
Digits: array[0..1] of Char = '01';
просто в оригинальной библиотеке он ещё используется для преобразования в Hex, поэтому я его так и оставил...

[Alex Cones]

А что мне остается ....
Мне остается дать ссылку на http://www.excode.ru/art5629p5.html
Здесь переводы из одной системы (2,8, 10, 16) в другую (аналогично) несколькими способами + универсальная функция перевода из любой в любую.

[Karp_13]

Всем громадное спасибо)) Просмотрел все предложенные варианты)))
В итоге всё таки решил остановится(я ленив))) на двух старых функциях(приведу их здесь... авось какому нибудь скитальцу по сети помогут)) (Спасибо громадное также DeKot'у, сэкономил мне немного времени)))):

function Dec_Bin(N_dec: integer): string; //десятичное число в двоичную строку
var i: byte;
    weight: byte;
    mas_bit: Array[0..7]of byte;
    s:string[8];
begin
  s:='';
  weight:= 128;
  for i:= 7 downto 0 do
  begin
    mas_bit[i]:= N_dec div weight;
    s:=s+floattostr(mas_bit[i]);
    if mas_bit[i] = 1 then N_dec:= N_dec - weight;
    weight:= weight div 2;
  end;
  Result:= s;
end;
//
function stepen(a:integer; b:integer):integer; //возведение в степень
var i:integer;
begin
result:=1;
for i:=1 to b do result:=result*a;
end;
//
function Bin_Dec(s: string): integer;   //двоичную строку в десятичное число
var i: integer;
begin
  result:=0;
  for i:=1 to 8 do result:=result+strtoint(s[i])*stepen(2,8-i);
end;

Ну и если ни у кого нет случайно предложений по их оптимизации, думаю тему можно закрывать)))

[mihali4]

IntToHex function
HexToBin function
С хэлпом никак? По аглицки "моя не понимай"?

[Karp_13]

Чъорт, спасиб)) Где ж ты раньше был)))
Хелпом пользоваться не интересно %(( Знаю, плохая привычка))))