This is just an example of learning.
Function Moneyswap (Money: Real): String; const money = 'Pointing Yuan picked up hundreds of millions of picked up 100 billion picked up hundreds million; MoneyValue =' zero zizi 叁 伍 柒捌 柒捌 '; var newmoney, SMONEY: STRING; I: INTEGER; Begin Money: = INT (Money * 100); Smoney: = floattostr (Money); for i: = 1 to length (smoney) Do Begin newMoney: = newMoney Copy (MoneyValue, Strtoint Copy (SMONEY, I, 1)) * 2 1, 2) Copy (MoneyUnit, (Length (SMONEY) - I) * 2 1, 2); END; MoneySwap: = newMoney;
