최델파 wrote:

> 델파이를 이제 막 시작하고 있어요

> 숫자 120,300 일 경우 -> 일십이만삼백원으로 변환할 수있는 source를 구합니다.

> 부디 최대한 빨리 구해주세요

> 간곡히 부탁해요

> 그리고 앞으로 많이 올리께요

> 많은 도움 부탁해요





제가 가지고 있는 팁입니다. 누군가에게 감사드려야겠네요. 후후...

참고로 10자리까장 밖에는 안되는것 같던데요. 글구 소숫점은 안되던데요.

그럼 즐코하세요



Form1: TForm1;



implementation

{$R *.DFM}



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.