Notice
Recent Posts
Recent Comments
Link
일 | 월 | 화 | 수 | 목 | 금 | 토 |
---|---|---|---|---|---|---|
1 | ||||||
2 | 3 | 4 | 5 | 6 | 7 | 8 |
9 | 10 | 11 | 12 | 13 | 14 | 15 |
16 | 17 | 18 | 19 | 20 | 21 | 22 |
23 | 24 | 25 | 26 | 27 | 28 | 29 |
30 |
Tags
- 설치
- 파이어버드
- winsock
- dll
- 문자열
- Visual Studio 2005
- 파라미터
- 기초
- 초보
- 셋업
- xml
- 소니
- 데이터베이스
- c#
- MFC
- 입문
- 델파이
- 시리얼 통신
- 인스톨
- Delphi
- Visual Basic
- Firebird
- SDK
- VB.NET
- PostgreSQL
- vb
- 예제
- WIN32 SDK
- MySQL
- SQL
Archives
- Today
- Total
프로그래밍 노트
델파이에서 16진수 문자열을 2진수 문자열로 바꾸기 본문
델파이에서 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;
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;
Comments