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

분류 Delphi

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

페이지 정보

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

쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물

작성일 2013.10.12 00:30

목록
- 글검색

본문

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;

페이지 정보

본문

관련자료