델파이 프로그래밍 숫자를 사용하여 자동으로 중국어 숫자 생성

단순히 숫자를 한자, 즉 345 ~ 345 로 변환하는 경우 두 개의 배열만 만들면 됩니다.

NumArray(0, 1, 2,3,4,5,6,7,8,9)

ChsArray ('0',' 1',' 2',' 3',' 4',' 5',' 6',' 7',' 8',' 9'

그런 다음 코드를 작성하여 각 비트의 값을 결정하고, 해당 정수 배열에서 아래 첨자를 찾고, 한자 배열에서 해당 아래 첨자의 한자를 얻습니다.

345 를 345 로 변환하고자 한다면. 그런 다음 함수를 제공합니다. 직접 호출 할 수 있습니다.

함수 TForm 1. Fnumtochinese (const n: real): string;

상수

Chsnum: widestring =' 0123456789-100 억 원 1 모';

ChsChar: 배열 [0.. 1, 0.. 12] 의 문자열 =

(참조)

('0 원',' 0 백',' 0 만',' 0 천',' 0 만',' 0 만',' 0 만',' 0 만',' 0 만',' 0 만',' 0 만'

('위안',' 0',' 0',' 0',' 만',' 억',' 0',' 만',' 억',' 원')

);

변수를 정의합니다

I: 정수

StrNum, StrTemp:WideString；;

시작

결과: = \ "\";

StrNum := Format('% 15d', [round (n *100)]);

I := 0 부터 14 do 까지의 경우

시작

StrTemp := Copy(StrNum, i+ 1,1);

StrTemp = R_SPACE 인 경우

계속하다

기타

결과: = result+chsnum [strtoint (strtemp)+1]+r _ space+chsnum [I+/kloc]

끝;

I:= 0 부터 12 do 까지의 경우

시작

Result:= string place(Result, ChsChar[0, i], ChsChar[ 1, i], [RF replace all]

Pos ('0', 결과) = 0 이면.

Result:= string place(Result,' 0 도',' 0', [rfReplaceAll])

기타

Result:= string place(Result,' 0 도 각도',' 정수', [RF replace all]);

Result:= string place(Result,' zero','', [RF replace all]);

끝;

끝;