Строковый массив в байт ?

[z768]

Заранее извиняюсь...
Есть строка типа '00000010'.
Нужно перевести в байт.

Может у кого есть готовая функция ?

[Stilet]

Есть: http://www.programmersforum.ru/showp...4&postcount=36
Годится? Аль слишком сложно?

[Serge_Bliznykov]

может так попроще?

function Bin2Integer(aStr: string): integer;
var
  i, Rez : longint;
begin
  Rez := 0;
  for i := 1 to length(aStr) do 
    Rez := Rez * 2 + ord(aStr[i]) - ord('0');
  Bin2Integer := Rez  
end;

begin
	WriteLn(Bin2Integer('000000110'));
end.

[Аватар]

в synautil есть BinToInt. Можно воспользоваться или подсмотреть

[z768]

Всем огромное спасибо.

Я пока ждал ответа, кое чего успел наваять, проверю результаты
потом свой код выложу, только прошу сильно не пинать если чего "безобразное" получилось.

Ну вот перепиленный вариант из предложенного, он верхний, и мой - оба рабочие...

function CompressByte(A, B, C, D: Byte): Byte;
var
  S: string;
  i: Integer;
begin
  Result := $00;
  S := IntToHex(A, 2) + IntToHex(B, 2) + IntToHex(C, 2) + IntToHex(D, 2);
  for i := 1 to Length(S) do
    Result := Result * 2 + ord(S[i]) - ord('0');
  CompressByte := Result;
end;


function CompressByte(A, B, C, D: Byte): Byte;
const
  Num: array [0..15] of string = ('0000', '0001', '0010', '0011',
                                  '0100', '0101', '0110', '0111',
                                  '1000', '1001', '1010', '1011',
                                  '1100', '1101', '1110', '1111');
var
  H: string;
  L: string;
  i: Integer;
begin
  H := '';
  L := '';

  H := IntToHex(A, 2) + IntToHex(B, 2);
  L := IntToHex(C, 2) + IntToHex(D, 2);
  for i := Low(Num) to High(Num) do
    begin
      if H = Num[i] then
        H := IntToHex(i, 1);
      if L = Num[i] then
        L := IntToHex(i, 1);
    end;

  Result := StrToInt('$' + H + L);
end;

На входе функции у меня массив из 4-х байт, которые нужно преобразовать в один..
Ну типа сжатия... Выложил так как у меня в программе.
Еще раз всем спасибо за внимание.