const Len:Integer = 10 ;
cNum: WideString = ' 零壹贰叁肆伍陆柒捌玖';
function NumToChar(const n: Double): string;
var
i : Integer;
sNum,sTemp : WideString;
begin
result :='';
sNum := format('%'+inttostr(Len)+'d',[ round(n * 100)]);
for i := 0 to Len-1 do
begin
stemp := copy(snum,i+1,1);
if stemp=' ' then
continue
else
Result := Result + cNum[strtoint(stemp)+1];
end;
end;
cNum: WideString = ' 零壹贰叁肆伍陆柒捌玖';
function NumToChar(const n: Double): string;
var
i : Integer;
sNum,sTemp : WideString;
begin
result :='';
sNum := format('%'+inttostr(Len)+'d',[ round(n * 100)]);
for i := 0 to Len-1 do
begin
stemp := copy(snum,i+1,1);
if stemp=' ' then
continue
else
Result := Result + cNum[strtoint(stemp)+1];
end;
end;