Visual Basic, C & C++
분류 Delphi

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

페이지 정보

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

본문

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
당신이 가야 할 길이 당신의 눈앞에 있거든 망설이지 말라. 당신이 가야 할 길이 분명하면, 기꺼이 확고한 의지로 그 길을 가라. 혹시 당신이 가야 할 길이 보이지 않는다면 멈추어 서서 가장 훌륭한 충고자들과 상의하라. 만일 당신이 가는 길에 어떤 장애물이 나타나면, 정의가 가리키는 길을 따라 당신이 갈 수 있는 곳까지 조심히 나아가라. (아우렐리우스)