현명한용이 wrote:

> 레포트로 계산기 프로그램에서 라디오 버튼을 누르면 2진수 8진수 16진수로 변환하는

> 것을 만들어야 하는데 어디를 가도 자료가 없어 고수님들의 도움을 받고자 합니다

> 이런프로그램있으면 자료좀 보내 주시던지 아니면 답변을 좀 상세하게 해주셨으면 합니다.

> 그럼 즐통 되시길....



//-------------------------------------------------------------------

// 10진->2진, 10진->16진입니다. 8진은 아래 참조해서, 만들어 보세요.

//-------------------------------------------------------------------

procedure TForm1.btnBinClick(Sender: TObject);

var

iDec, iMod:integer;

sTmp:string;

begin

iDec:=StrToInt(edit1.Text);

edit1.Clear;



repeat

iMod:=iDec div 2;

sTmp:=IntToStr(iDec mod 2);

edit1.Text:=sTmp+edit1.Text;

iDec:=iMod;

until(iMod=0);

end;



procedure TForm1.btnHexClick(Sender: TObject);

var

iHex, iMod:integer;

sTmp:string;

begin

iHex:=StrToInt(edit1.Text);

edit1.Clear;



repeat

iMod:=iHex div 16;

sTmp:=IntToStr(iHex mod 16);

case StrToInt(sTmp) of

10: sTmp:='A';

11: sTmp:='B';

12: sTmp:='C';

13: sTmp:='D';

14: sTmp:='E';

15: sTmp:='F';

else sTmp:=sTmp;

end;

edit1.Text:=sTmp+edit1.Text;

iHex:=iMod;

until(iMod=0);

end;