{"id":800,"date":"2009-12-17T09:04:55","date_gmt":"2009-12-17T01:04:55","guid":{"rendered":"http:\/\/www.tansoo.cn\/?p=800"},"modified":"2014-09-16T09:06:22","modified_gmt":"2014-09-16T01:06:22","slug":"delphi2010%e5%b0%8f%e5%86%99%e9%87%91%e9%a2%9d%e8%bd%ac%e5%a4%a7%e5%86%99%e9%87%91%e9%a2%9d%e7%9a%84%e6%ba%90%e4%bb%a3%e7%a0%81","status":"publish","type":"post","link":"http:\/\/www.tansoo.cn\/?p=800","title":{"rendered":"Delphi2010\u5c0f\u5199\u91d1\u989d\u8f6c\u5927\u5199\u91d1\u989d\u7684\u6e90\u4ee3\u7801"},"content":{"rendered":"<p>\u7531\u4e8e\u4eceDelphi2010\u5f00\u59cb\u652f\u6301\u5927\u5b57\u7b26\u96c6\uff0c\u539f\u6765\u4e00\u4e2a\u6c49\u5b57\u5360\uff12\u4e2a\u5b57\u8282\uff0c\u73b0\u5728Delphi2010\u4e2d\u5360\u4e00\u4e2a\u5b57\u8282\uff0c\u6240\u4ee5\u539f\u51fd\u6570\u5728Delphi2010\u4e0b\u5df2\u4e0d\u80fd\u7528\u4e86\uff0c\u73b0\u5c06\u539f\u51fd\u6570\u4fee\u6539\u5982\u4e0b\uff1a <!--more--><\/p>\n<pre class=\"lang:delphi decode:true \" >function ToBigRMB(Num: Currency): String;    \r\nconst    \r\n  BigNumber='\u96f6\u58f9\u8d30\u53c1\u8086\u4f0d\u9646\u67d2\u634c\u7396';    \r\n  BigUnit='\u4e07\u4edf\u4f70\u62fe\u4ebf\u4edf\u4f70\u62fe\u4e07\u4edf\u4f70\u62fe\u5143';    \r\n       {\u5171\u53ef\u8868\u793a13\u4f4d\u91d1\u989d}    \r\nvar    \r\n  nLeft, nRigth, lTemp, rTemp, BigNumber1, BigUnit1, RMB,s: string;    \r\n  I: Integer;    \r\nbegin  {\u53d6\u6574\u6570\u548c\u5c0f\u6570\u90e8\u5206}    \r\n  RMB := FormatCurr('0.00', Num);    \r\n  nLeft:=copy(RMB, 1, Pos('.', RMB) - 1);    \r\n  nRigth:=copy(RMB, Pos('.', RMB) + 1, 2);    \r\n    {\u8f6c\u6362\u6574\u6570\u90e8\u5206}    \r\n  if nLeft&lt;&gt;'0' then    \r\n    for I:=1 to Length(nLeft) do    \r\n    begin    \r\n      BigNumber1:=copy(BigNumber, StrToInt(nLeft[I]) + 1, 1);    \r\n      BigUnit1:=copy(BigUnit, (Length(BigUnit) - Length(nleft) + I - 1) + 1, 1);    \r\n      s := copy(lTemp, Length(lTemp)-1, 1);    \r\n      if (BigNumber1='\u96f6') and (s='\u96f6') then    \r\n        lTemp:=copy(lTemp, 1, Length(lTemp) - 2);    \r\n      if (BigNumber1='\u96f6') and ((BigUnit1='\u4ebf') or (BigUnit1='\u4e07') or (BigUnit1='\u5143')) then    \r\n      begin    \r\n        BigNumber1:=BigUnit1;    \r\n        if BigUnit1&lt;&gt;'\u5143' then    \r\n          BigUnit1:='\u96f6'    \r\n        else    \r\n          BigUnit1:='';    \r\n      end;    \r\n      if (BigNumber1='\u96f6') and (BigUnit1&lt;&gt;'\u4ebf') and (BigUnit1&lt;&gt;'\u4e07') and (BigUnit1&lt;&gt;'\u5143') then    \r\n        BigUnit1:='';    \r\n      lTemp:=lTemp + BigNumber1 + BigUnit1;    \r\n    end;    \r\n\r\n  lTemp:=StringReplace(lTemp, '\u4ebf\u4e07', '\u4ebf', [rfReplaceAll]);    \r\n  lTemp:=StringReplace(lTemp, '\u96f6\u96f6', '\u96f6', [rfReplaceAll]);    \r\n  lTemp:=StringReplace(lTemp, '\u96f6\u5143', '\u5143', [rfReplaceAll]);    \r\n\r\n  {\u8f6c\u6362\u5c0f\u6570\u90e8\u5206}    \r\n  if StrToInt(nRigth[1])&lt;&gt;0 then    \r\n    rTemp:=copy(BigNumber, StrToInt(nRigth[1]) * 1 + 1, 1) + '\u89d2';    \r\n  if StrToInt(nRigth[2])&lt;&gt;0 then    \r\n  begin    \r\n    if (nLeft&lt;&gt;'0') and (StrToInt(nRigth[1])=0) then    \r\n      rTemp:='\u96f6';    \r\n    rTemp:=rTemp + copy(BigNumber, StrToInt(nRigth[2]) * 1 + 1, 1) + '\u5206';    \r\n    RMB:=lTemp + rTemp;    \r\n  end    \r\n  else    \r\n    RMB :=lTemp + rTemp + '\u6574';    \r\n  Result := RMB;\r\nend;<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>\u7531\u4e8e\u4eceDelphi2010\u5f00\u59cb\u652f\u6301\u5927\u5b57\u7b26\u96c6\uff0c\u539f\u6765\u4e00\u4e2a\u6c49\u5b57\u5360\uff12\u4e2a\u5b57\u8282\uff0c\u73b0\u5728Delphi2010\u4e2d\u5360\u4e00\u4e2a\u5b57\u8282\uff0c\u6240\u4ee5 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2],"tags":[],"class_list":["post-800","post","type-post","status-publish","format-standard","hentry","category-program"],"_links":{"self":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/posts\/800","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=800"}],"version-history":[{"count":0,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=\/wp\/v2\/posts\/800\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=800"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=800"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.tansoo.cn\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=800"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}