아래의 쏘스를 주신분께 먼저 감사드립니다..

군데여 쓸곳은 C++빌더라서여 고쳐야는데

제가 델파이는 문외한이라서요..

델파이론 잘되는데 이것을 C++로 고치질 몬 했어요...ㅜ.ㅜ



여기서 부터~~~



function Amount(N: Longint): String;

const

Units: array[0..9] of String = ('', '일', '이', '삼', '사', '오',

'육', '칠', '팔', '구');

Lower: array[0..3] of String = ('', '십','백','천');

Higher: array[0..4] of String = ('', '만','억','조','경');

HighLevel: Integer = 0;

begin

case N of

0..9: Result := Result + Units[N];

10..99:

Result := Result +

Amount(N div 10) + Lower[1] + Amount(N mod 10);

100..999:

Result := Result +

Amount(N div 100) + Lower[2] + Amount(N mod 100);

1000..9999:

Result := Result +

Amount(N div 1000) + Lower[3] + Amount(N mod 1000);

else

begin

inc(HighLevel);

Result := Result +

Amount(N div 10000) + Higher[HighLevel] + Amount(N mod 10000);

dec(HighLevel);

end;

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

try

Label1.caption := Amount(Trunc(StrToFloat(Edit1.Text)));

except

on EConvertError do

Label1.caption := '정확한 숫자를 입력하세요';

end;

end;



end



~~~~ 요까정 입니다..ㅜ.ㅜ



델파이와 C++빌더를 아시는 고수님 꼭 부탁좀 드립니다..

참..위 쏘스중에 C++ 빌더론 지원 안되는것도 있나요..??

참고로 전 C++빌더 3.0 입니다..