Procedure tfmbmzc.bitbtn2click (sender: TOBJECT); // Give Convert CONST chnum: array [0..9] of string = ('zero', '', '', '', '', 'Wu ',' Lu ',' 柒 ',' 捌 ',' 玖 '); chbit: array [0..3] of string = (' round ',' picking ',' ',' 仟 '); var Y, M, D: Word; String; Len, N, TMP: Integer; Biszero: Boolean; Begin Decodate (Date, Y, M, D); JFJECHANGE (); with fmprt do begin qryear.caption: = INTOSTR (y); QrMonth.caption: = INTTOSTR (M); QRDAY.CAPTION: = INTOSTR (D);
QRNAME.CAPTION: = EdName.Text;
QRXMONEY.CAPTION: = JF;
// Controlled table generates uppercase amount Biszero: = false; N: = POS ('.', Jf); // Processing before the decimal point IF n = 0 THEN LEN: = Length (jf) else len: = n- 1; for n: = 1 to len do begin tmp: = start (jf [n]); if tmp = 0 Then Begin if n If Length (JF)> Len dam // decimal point after processing IF LEN 2 <= Length (jf) THEN BEGIN TMP: = STRTOINT (JF [LEN 2]); if TMP = 0 THEN S: = S ' Zero 'else s: = s chnum [tmp] ' angle '; end; if len 3 <= length (jf) THEN S: = S Chnum [STRTOINT (JF [LEN 3])] ' '; End; qrdmoney.caption: = S; Qrshow.caption: = 'Securities registration fee. " QRHANDLER.CAPTION: = '僧 淋 淋'; Quickrep1.preview; end; end; procedure tfmbmzc.jfjechange (); // Control VAR TMP: String; Begin // calculates "Payment Amount" JF: = TRIM (Medjfje.Text, 1, 4)); if jf = '' Then // "Yuan" is empty JF: = '0'; TMP: = Trim (Copy (Medjfje.Text, 7, 1)); if TMP = '' Then Begin File: // "Corner" is empty TMP: = Trim (Copy (Medjfje.Text, 10, 1)); If TMP <> '' Then // Fill in "Division" JF: = JF '. 0' TMP; END ELSE BEGIN / / Fill in "Corner" JF: = JF '.' TMP; TMP: = Trim Copy (Medjfje.Text, 10, 1)); if Tmp <> '' Then // Fill in "Division" JF: = JF TMP; END; JF: = FLOATTOSTR (STRTOFLOAT (JF)); End.