最短小精悍的Delphi小写数字转大写的函数

 function   NumTOChina(i:Real):string;   //小写数字转大写
const
    d= '零壹贰叁肆伍陆柒捌玖分角圆拾佰仟万拾佰仟亿拾佰仟';
var
    m,k:string;
    j:integer;
begin
    i:=i*100;
    k:= '';
    m:=inttostr(trunc(i));
    for   j:=length(m)   downto   1   do
        k:=k+d[(strtoint(m[Length(m)-j+1])+1)*2-1]+d[(strtoint(m[Length(m)-j+1])+1)*2]
            +d[(10+j)*2-1]+d[(10+j)*2];
    result:=k;
end;