분류
Delphi
델파이에서 16진수 문자열을 2진수 문자열로 바꾸기
페이지 정보
본문
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;
관련자료
-
링크
등록된 댓글이 없습니다.