Visual Basic, C & C++
분류 Delphi

델파이에서 16진수 문자열을 2진수 문자열로 바꾸기

페이지 정보

작성자 nuno 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물
작성일
조회 27,170

본문

function HexToBin(sHex: string): string;
var
  iHex, iDigit : integer;
begin
  iDigit := Length(sHex) * 4;
  iHex := StrToInt('$' + sHex);

  result := StringOfChar('0', iDigit);
  while iHex > 0 do begin
    if (iHex and 1) = 1 then
      result[iDigit] := '1';
    dec(iDigit) ;
    iHex := iHex shr 1;
  end;
end;

관련자료

등록된 댓글이 없습니다.
로그인한 회원만 댓글 등록이 가능합니다.
프로그래밍
Today's proverb
너의 하루하루가 너를 형성한다. 그리고 머지 않아 한 가정을, 지붕 밑의 온도를 형성할 것이다. 또한 그 온도는 이웃으로 번져 한 사회를 이루게 될 것이다. 이렇게 볼 때 너의 ‘있음’은 절대적인 것이다. 없어도 그만인 존재가 아니라는 말이다. (법정스님)