谁能给我一个输入货币的控件？我要输入人民币！！

Question

谁能给我一个显示/输入货币的控件？我要输入人民币！！

Answer 1

function Tfrm_fkpz.SmallTOBig(small:real):string;
var SmallMonth,BigMonth:string;
wei1,qianwei1:string[2];
wei,qianwei,dianweizhi,qian:integer;
begin
qianwei:=-2;
Smallmonth:=formatfloat('0.00',small);
dianweizhi :=pos('.',Smallmonth);
for qian:=length(Smallmonth) downto 1 do
begin
if qian<>dianweizhi then
begin
case strtoint(copy(Smallmonth,qian,1)) of
  1:wei1:='壹'; 2:wei1:='贰';
  3:wei1:='叁'; 4:wei1:='肆';
  5:wei1:='伍'; 6:wei1:='陆';
  7:wei1:='柒'; 8:wei1:='捌';
  9:wei1:='玖'; 0:wei1:='零';
end;
case qianwei of
    -3:qianwei1:='厘';
    -2:qianwei1:='分';
    -1:qianwei1:='角';
    0 :qianwei1:='元';
    1 :qianwei1:='拾';
    2 :qianwei1:='佰';
    3 :qianwei1:='千';
    4 :qianwei1:='万';
    5 :qianwei1:='拾';
    6 :qianwei1:='佰';
    7 :qianwei1:='千';
    8 :qianwei1:='亿';
    9 :qianwei1:='十';
    10:qianwei1:='佰';
    11:qianwei1:='千';
 end;
inc(qianwei);
BigMonth :=wei1+qianwei1+BigMonth;
end;
end;
result:=bigmonth;
end;

Answer 2

TMS的TAdvEdit，可以到http://www.tmssoftware.com去下载。
可以设置其前缀为￥，设定其编辑的值是货币类型，精度为2。则能输入下列的形式，要是你输入的是中文，那就只能是自己做个了。