Mengkonversi Binari ke desimal / Desimal Ke Binary

 

function BinToInt(Value: string): Integer;

var

  i, iValueSize: Integer;

begin

  Result := 0;

  iValueSize := Length(Value);

  for i := iValueSize downto 1 do

    if Value[i] = '1' then Result := Result + (1 shl (iValueSize - i));

end;

function IntToBin(d: Longint): string;

var

  x, p: Integer;

  bin: string;

begin

  bin := '';

  for x := 1 to 8 * SizeOf(d) do

  begin

    if Odd(d) then bin := '1' + bin

    else

      bin := '0' + bin;

    d := d shr 1;

  end;

  Delete(bin, 1, 8 * ((Pos('1', bin) - 1) div 8));

  Result := bin;

end;