Visual Basic, C & C++
분류 Delphi

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

페이지 정보

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

본문

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
우리의 꿈은, 뒤에 오는 사람들이 우리를 딛고 우리 위에서 이루게 하는 것입니다. 나는 평생을 창조적인 작업을 위해서 살아왔습니다. 누가 하라고 해서 한 것이 아니라 그것이 나의 삶 그 자체의 즐거움이었기 때문입니다. 현실을 직시하며 현재의 수준을 유지하라. 그리고 더 먼 곳을 향하는 시야를 가져라.