프로그래밍 노트

델파이에서 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;

설명은 따로 필요없을 것같다. 그냥 밑에 소스를 보면.... void main() { int nDec = 0; char szHex[16]; // 16진수를 10진수로 sprintf(szHex, "FF"); nDec = (int)strtol(szHex, NULL, 16); printf(" %s -> %d \n", szHex, nDec); nDec = nDec - 0xF; // 10진수를 16진수로 sprintf(szHex, "%X", nDec); printf("%d -> %s \n", nDec, szHex); } 실행한 결과 FF -> 255 240 -> F0 strtol 함수를 알면 16진수를 10진수로 바꾸는 것을 한줄에 끝낼 수 있는데 저 함수를 모르면... sprintf의 포멧에서 %X를 쓰느냐 %..

인터넷에서 16진수 문자열을 10진수 수치값으로 바꾸는 것을 찾아봐도 별로 안나왔다. 너무 쉬워서 그런건가? -.-;; 열심히 찾았는데 알고보니 너무 허무함 VB랑 16진수를 10진수로 바꾸는게 똑같네 VB에서는 "&H"를 문자열에 붙이면 되는데 delphi에서는 '$'만 문자열에 분이면 된다. function HexToInt(sHex:String):Integer; var i:Integer; sWork:String; begin Result := 0; sWork := UpperCase(sHex); for i := 1 to Length(sWork) do begin // 16진수의 문자열인가 체크 if (Ord(sWork[i]) in [0..47, 58..64, 71..255]) then begin Resul..

type (형) 인수의 형을 지정 d int값을 부호있는 10진수로 출력 i d와 같음 u int값을 부호없는 10진수로 출력 X int값을 부호없는 16진수로 출력 10~15은 'A'~'F'로 표시 x int값을 부호없는 16진수로 출력 10~15은 'a'~'f'로 표시 o int값을 부호없는 8진수로 출력 p 포인터값을 16진수로 출력 s 문자열 출력 c int값을 문자로 출력 C c와 같음 f double값을 소수로 출력 (예：12.566371) e double값을 지수로 출력 (예：1.256637e+001) E e와 같음 'e'가 'E'로 표시 (예：1.256637E+001)。 g 숫자값의 크기에 따라 f나 e로 출력 (예：12.5664、2.99792e+008) 숫자값의 절대치가 너무 커서 pre..