从网上找的一段代码

/// 
/// 小写转大写/// 
/// /// 
     function MoneyConvert(mmje: real): string;const  s1: string = '零壹贰叁肆伍陆柒捌玖';  s2: string = '分角元拾佰仟万拾佰仟亿拾佰仟万';  function StrTran(const S, s1, s2: string): string;  begin    Result := StringReplace(S, s1, s2, [rfReplaceAll]);  end;var  S, dx: string;  i, Len: Integer;begin  if mmje < 0 then  begin    dx := '负';    mmje := -mmje;  end;  S := Format('%.0f', [mmje * 100]);  Len := Length(S);  for i := 1 to Len do    dx := dx + Copy(s1, (Ord(S[i]) - Ord('0')) * 2 + 1, 2) + Copy(s2, (Len - i) * 2 + 1, 2);  dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零仟', '零'), '零佰', '零'), '零拾', '零'), '零角', '零'), '零分', '整');  dx := StrTran(StrTran(StrTran(StrTran(StrTran(dx, '零零', '零'), '零零', '零'), '零亿', '亿'), '零万', '万'), '零元', '元');  if dx = '整' then    Result := '零元整'  else    Result := StrTran(StrTran(dx, '亿万', '亿零'), '零整', '整');end;