How to use the code? Use a label or variable? Please the door for an example detailed operating OTZ
CodePudding user response:
Qianwei:=1 + I;VSTR:=';
Vcramt:=dbcalc1. Value + dbcalc2. Value;
Smallmonth:=formatfloat (' 0.00 'vcramt);
Dianweizhi:=pos ('. ', Smallmonth);
Bigmonth:=';
For qian:=1 to length (Smallmonth) do
The begin
Qian1:=length (Smallmonth) - qian + 1;
If qian1 & lt;> Dianweizhi then
The begin
If the copy (Smallmonth qian1, 1)='-' then wei1:='? O ';
Case strtoint (copy (Smallmonth qian1, 1)) of
1: wei1:='1'; 2: wei1:='. ';
3: wei1:='3'; 4: wei1:='boss';
5: wei1:='wu'; 6: wei1:='land';
7: wei1:='pure'; 8: wei1:=' ';
9: wei1:='nine'; Zero: wei1:='zero';
end;
Case qianwei of
1: qianwei1:='points';
2: qianwei1:='Angle';
3: qianwei1:='$';
4: qianwei1:='pick up';
5: qianwei1:='or';
6: qianwei1:='thousands';
7: qianwei1:='all';
8: qianwei1:='pick up';
9: qianwei1:='or';
10: qianwei1:='thousands';
11: qianwei1:='$';
='10' 12: qianwei1:;
13: qianwei1:='or';
14: qianwei1:='thousands';
end;
Qianwei:=qianwei + 1;
BigMonth:=wei1 + + BigMonth qianwei1;
end;
end;
Value:=VSTR + bigMonth;