이영근 wrote:

> 제목 그대로 10진수의 값을 2진수로 변환 할려고

> 하는데 고수님들의 조언 부탁 드립니다...

> 그럼 모두 건강하시고 구정명절 잘보내시길...



아래는 간단한 진수변환 방법입니다.



참고하시고 즐거운 프로그래밍, 즐거운 명절~~ ^_^



// 문자를 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

Negative := True; // 음수표시

n := Abs(n);

for i := 1 to SizeOf(n) * 8 do

begin

if n < 0 then

S := S + '1' else S := S + '0';

n := n shl 1;

end;

Delete(S,1,Pos('1',S) - 1); //remove leading zeros

if Negative then

S := '-' + S;

Result := S;

end;

구창민 wrote:

> 이영근 wrote:

> > 제목 그대로 10진수의 값을 2진수로 변환 할려고

> > 하는데 고수님들의 조언 부탁 드립니다...

> > 그럼 모두 건강하시고 구정명절 잘보내시길...

>

> 아래는 간단한 진수변환 방법입니다.

>

> 참고하시고 즐거운 프로그래밍, 즐거운 명절~~ ^_^

>

> // 문자를 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

> Negative := True; // 음수표시

> n := Abs(n);

> for i := 1 to SizeOf(n) * 8 do

> begin

> if n < 0 then

> S := S + '1' else S := S + '0';

> n := n shl 1;

> end;

> Delete(S,1,Pos('1',S) - 1); //remove leading zeros

> if Negative then

> S := '-' + S;

> Result := S;

> end;