[Delphi] 진법변환 (16->10, 10->2, 2->16. 10->8, 2->8)
델파이 진법변환 소스 16->10, 10->2, 2->16. 10->8, 2->8 2진수 : 0, 1 → 수의 개수가 두 개이기에 2진수.. (4진수 : 0, 1, 2, 3 → 수의 개수가 네 개이기에 4진수..) 8진수 : 0, 1, 2, 3, 4, 5, 6, 7 → 수의 개수가 여덟 개이기에 8진수.. 10진수 : 0, 1, 2, 3, 4, 5, 6, 7, 8, 9 → 수의 개수가 열 개이기에 10진수.. 16진수 : 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, A(10), B(11), C(12), D(13), E(14), F(15) → 수의 개수가 열여섯 개이기에 16진수.. ---- 소스코드 // 문자를 10진수로... function CharToInteger(chr: Char): Integer; begin Result := Ord(chr); end; // 16진수를 10진수로... function HexToInteger(HEX: String): Integer; begin if HEX = '' then begin Result := 0; end else begin HEX := '$' + HEX; Result := StrToInt(HEX); end; end; // 10진수를 2진수로... function DecToBinStr(n: integer): String; var S: string; i: integer; Negative: boolean; begin if n = 0 then begin Result := '0'; System.Exit; end; Negative := False; if n < 0 then Neg...
