Сложение/вычитание в двоичной системе Опции

[Acad]

Сложение и вычитание в двоичной системе.
Кто поможет?

[mj]

Код

function BinToInt(B: String): Integer;
var
 F: Byte;
 Res: Integer;
begin
 Res := 0;
 for F := 1 to Length(F) do
 begin
   if B[F]='0' then
   begin
     asm
       shl Res, 1
     end;
   end;
   if B[F]='1' then
   begin
     asm
       shl Res, 1
       or Res, 1
     end;
   end;
 end;
 BinToInt := Res;
end;

Сообщение отредактировано: volvo - 17.12.2004 2:09