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
[7173] Re:Re:Re:Delphi 소쓰를 Builder 로 바꾸고 싶어요..부탁합니다
경호 [ansoni19] 1974 읽음    2001-05-03 17:45
이렇게 처리하면 되겠네요 ^^

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

그럼 즐프하세요 ^^
자세하게 테스트 하지 않아서 쩝 ...
버그 있으면 리플 주세요 ^^

+ -

관련 글 리스트
7125 Delphi 소쓰를 Builder 로 바꾸고 싶어요..부탁합니다 손병돈 2133 2001/05/03
7131     Re:Delphi 소쓰를 Builder 로 바꾸고 싶어요..부탁합니다 경호 2152 2001/05/03
7168         Re:Re:Delphi 소쓰를 Builder 로 바꾸고 싶어요..부탁합니다 손병돈 2011 2001/05/03
7173             Re:Re:Re:Delphi 소쓰를 Builder 로 바꾸고 싶어요..부탁합니다 경호 1974 2001/05/03
7170             Re:Re:Re:Delphi 소쓰를 Builder 로 바꾸고 싶어요..부탁합니다 경호 2002 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.