Visual Basic, C & C++
분류 Delphi

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

페이지 정보

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

본문

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
나는 단지 한 사람의 인간에 불과하다. 그렇더라도 나는 어디까지나 인간이다. 나는 모든 것을 다 할 수는 없다. 그렇더라도 나는 어떤 것은 할 수 있다. 그리고 모든 것을 다 할 수 없다고 해서 내가 할 수 있는 어떤 것까지 포기하지는 않을 것이다. (에드워드 에버렛 해일)