如何把输入的一个数（整数或实数）转化成大写

Question

自己编成写啊！去看看MUD的源程序。在function中有定义的，很简单一个函数

Answer 1

个，十,百,千,万,……
a[0],a[1],a[2],a[3],a[4],……
分别对应；
分解成小数和整数两部分
转换成字符串，分别从最后一位读起（循环)；
例如:1125，先读5，依次2，1，1
当然，按照习惯，在程序中判断一下
  

Answer 2

给分吗？（我快穷分了）我有函数
类似hlfsoft(何软)

Answer 3

FUNCTION chineseje(Aje:Currency):string;
var
   s_1,s_2:widestring;
   s_5:char;
   s_4:string;
   i:integer;
   mm:string;
   s_6,s_7:widestring;
begin
   s_4:=format('%10d',[trunc(aje*100)]);
   s_1:='零壹贰叁肆伍陆柒捌玖';
   s_2:='仟佰拾万仟佰拾元角分';
   i:=1;
   mm:='';
   WHILE i<=10 do
   begin
     s_5:=s_4[i];
     IF s_5<>' ' then
     begin
         s_6:=s_1[ord(s_5)-ORD('0')+1];
         s_7:=s_2[i];
         IF (s_5='0') AND (i<>4) AND (i<>8)  then
           s_7:='';
         IF (copy(s_4,i,2)='00') OR ( (s_5='0') AND (i in [4,8,10])) then
           s_6:='';
         mm:=mm+s_6+s_7;
         IF (s_4[i]='0') AND ((s_4[i+1]<>'0') AND (i in [4,8])) then
           mm:=mm+s_1[1];
     END;
     inc(i);
   END ;
   IF s_5='0' then
     mm:=mm+'整';
   result:=mm;
end;