안녕 하세요?

BacTeria 박종민 입니다.

오늘의 팁은 10진수 <-> 2진수 변환 함수 입니다.

32비트 기준으로 작성 되어 있으니 참조 하셔서 대충 입맛에 맞게 고쳐 쓰심이... ㅋㅋ

그럼 오늘 하루도 수고하세요~ 델파이 만세!!

function Dec2Bin(Value : LongInt) : string;
var
  i : integer;
  s : string;
begin
  s := '';

  for i := 31 downto 0 do
    if (Value and (1 shl i)) <> 0 then s := s + '1'
                                  else s := s + '0';

  Result := s;
end;

function Bin2Dec(BinString: string): LongInt;
var
  i : Integer;
  Num : LongInt;
begin
  Num := 0;

  for i := 1 to Length(BinString) do
    if BinString[i] = '1' then Num := (Num shl 1) + 1
                          else Num := (Num shl 1);

  Result := Num;
end;