送分题，不看看？！

Question

我需要一段代码。实现把Edit的‘1987.89’转化为‘壹玖捌柒.捌玖’

Answer 1

呵呵
CSDN上有答案的自己找了

Answer 2

看一下这个贴:
http://community.csdn.net/Expert/topic/3239/3239425.xml?temp=.8016321

Answer 3

function  F_SumXtoD1(s:string):string;
begin
     case strtoint(s) of
       0:   result:='零';
       1:   result:='一';
       2:   result:='二';
       3:   result:='三';
       4:   result:='四';
       5:   result:='五';
       6:   result:='六';
       7:   result:='七';
       8:   result:='八';
       9:   result:='九';
     end;
end;
將小寫的換成大寫的即可

Answer 4

为了方便DELPHI爱好者的讨论，我新建立了一个群，全是D的爱好者，欢迎大家加入，群号：5245338

Answer 5

function TForm1.rmb(i: Real): string;
const
  d='零壹贰叁肆伍陆柒捌玖分角元拾佰仟万拾佰仟亿';
var
  m,k:string;
  j:integer;
begin
  k:='';
  m:=floattostr(int(i*100));
  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];
  rmb:=k;
end;