C++Builder Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
C++빌더 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
메신저 프로젝트
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
볼랜드포럼 광고 모집

C++빌더 Q&A
C++Builder Programming Q&A
[7170] Re:Re:Re:Delphi 소쓰를 Builder 로 바꾸고 싶어요..부탁합니다
경호 [ansoni19] 2001 읽음    2001-05-03 17:12
에궁 정 그러시다니 뭐 간단한게 만들어보았습니다...
다듬어서 사용하세요 ^^

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TMemo *Memo1;
        TEdit *Edit1;
        TButton *Button1;
        void __fastcall Button1Click(TObject *Sender);
private:    // User declarations
public:        // User declarations
        void __fastcall Num_order(int i); //order를 정해주기 위한 함수입니다.
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif


//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
AnsiString kor_trans = "";
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Num_order(int i)
{
        switch(i)
        {
                case 1 : kor_trans = kor_trans + "";
                                   break;
                case 2 : kor_trans = kor_trans + "십";
                                   break;
                case 3 : kor_trans = kor_trans + "백";
                                   break;
                case 4 : kor_trans = kor_trans + "천";
                                   break;
                case 5 : kor_trans = kor_trans + "만";
                                   break;
                case 6 : kor_trans = kor_trans + "십";
                                   break;
                case 7 : kor_trans = kor_trans + "백";
                                   break;
                case 8 : kor_trans = kor_trans + "천";
                                   break;
                case 9 : kor_trans = kor_trans + "억";
                                   break;
                case 10 : kor_trans = kor_trans + "십";
                                   break;
                case 11 : kor_trans = kor_trans + "백";
                                   break;
                case 12 : kor_trans = kor_trans + "천";
                                   break;

        }

}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        kor_trans = "";
        int temp = Edit1->Text.Length();
        int check_order = temp;
        AnsiString temp1 = Edit1->Text;
        for(int i=1;i<=temp;i++)
        {
                switch(temp1[i])
                {
                        case '0' : kor_trans = kor_trans + "";
                                   break;
                        case '1' : kor_trans = kor_trans + "일";
                                   Num_order(check_order);
                                   break;
                        case '2' : kor_trans = kor_trans + "이";
                                   Num_order(check_order);
                                   break;
                        case '3' : kor_trans = kor_trans + "삼";
                                   Num_order(check_order);
                                   break;
                        case '4' : kor_trans = kor_trans + "사";
                                   Num_order(check_order);
                                   break;
                        case '5' : kor_trans = kor_trans + "오";
                                   Num_order(check_order);
                                   break;
                        case '6' : kor_trans = kor_trans + "육";
                                   Num_order(check_order);
                                   break;
                        case '7' : kor_trans = kor_trans + "칠";
                                   Num_order(check_order);
                                   break;
                        case '8' : kor_trans = kor_trans + "팔";
                                   Num_order(check_order);
                                   break;
                        case '9' : kor_trans = kor_trans + "구";
                                   Num_order(check_order);
                                   break;
                }
               check_order--;
        }
        Memo1->Lines->Add(kor_trans);
}
//---------------------------------------------------------------------------

소스는 그냥 case문을 이용해서 만들었습니다.
좀더 줄일려면 병규님처럼 order를 정해주기 위해서 약간의
연산을 첨가하면 되겠지요 ^^

전체적인것을 파악하시는데 이렇게 해드리는게 더 좋을것 같아서요^^
그럼 즐프하세여


+ -

관련 글 리스트
7125 Delphi 소쓰를 Builder 로 바꾸고 싶어요..부탁합니다 손병돈 2132 2001/05/03
7131     Re:Delphi 소쓰를 Builder 로 바꾸고 싶어요..부탁합니다 경호 2152 2001/05/03
7168         Re:Re:Delphi 소쓰를 Builder 로 바꾸고 싶어요..부탁합니다 손병돈 2010 2001/05/03
7173             Re:Re:Re:Delphi 소쓰를 Builder 로 바꾸고 싶어요..부탁합니다 경호 1974 2001/05/03
7170             Re:Re:Re:Delphi 소쓰를 Builder 로 바꾸고 싶어요..부탁합니다 경호 2001 2001/05/03
7172                 Re:Re:Re:Re:Delphi 소쓰를 Builder 로 바꾸고 싶어요..부탁합니다 경호 2083 2001/05/03
7175                     답변 정말 감사합니다~ 손병돈 1936 2001/05/03
7196                         Re:답변 정말 감사합니다~ 경호 1980 2001/05/04
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.