Q&A

  • 비베소스 델파이로 변환하기
Private Sub Form_Click()
Dim a As Integer
a = InputBox("학과 코드을 입력하세요", "학과명출력")
Select Case a
Case 205: MsgBox "205는 전산통계학과입니다"
Case 209
MsgBox "209는 컴퓨터과학과입니다."
Case 201
MsgBox "201은 수학과입니다."
Case 202
MsgBox "202는 물리과입니다."
Case Else
MsgBox "학과 코드가 없는 학과입니다."
End Select
End Sub

위의 비베소스를 델파이로 변환해야 하는데,
어떻게 해야할지 모르겠어서요..
완전 델파이 초보라.ㅠ_ㅜ
혼자 책보며 열심히 알아보고 있는중입니다..
고수분들의 조언 부탁드립니다..

이 게시물을
1  COMMENTS
  • Profile
    혜월 • 2003.04.08 01:54
    var
        Tmp : string;
    begin
        Tmp:= InputBox('학과명출력', '학과 코드을 입력하세요', '');
        Case StrToInt(Tmp) of
            205: showmessage('205는 전산통계학과입니다');
            209: showmessage('209는 컴퓨터과학과입니다');
            201: showmessage('201은 수학과입니다');
            202: showmessage('202는 물리과입니다');
            else
                 showmessage('학과 코드가 없는 학과입니다.');
        end;
←First Page
694 695 696 697 698 699 700 701 702 703
Last Page→
한델 로그인 하기