人民币大写

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;