Visual Basic, C & C++
Delphi 분류

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

컨텐츠 정보

본문

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;

관련자료

댓글 0
등록된 댓글이 없습니다.

프로그래밍

Today's proverb
자기 자리의 중요성을 아는 사람은 절대로 외로움이나 쓸쓸함 따위를 느끼지 않는다. 나를 기억하고 있는 단 한 사람이라도 있다면, 나를 필요로 하는 곳이 단 한 군데만이라도 있다면 그 사람은 매우 행복한 사람이 아닐까. 지금, 이 자리의, 자신으로부터 작지만, 결코 작지 않은 새로운 역사가 시작되는 것이다. (안도현)