Delphi 분류
델파이에서 16진수 문자열을 2진수 문자열로 바꾸기
컨텐츠 정보
- 31,140 조회
- 0 추천
- 목록
본문
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;
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
등록된 댓글이 없습니다.
