热点点击 赶快行动 我在线送分

Question

自己首次想写个函数却出错，请帮忙我在Public 中写了
function TForm1.xTOd(i:Real):string; 在implementation后写了function TForm1.xTOd(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];
  xTOd:=k;
end;
调用时procedure TForm1.Button1Click(Sender: TObject);
var
  Sum:real;
begin
  sum:=12.34;
  showmessage('人民币大写:'+xTOd(Sum)); 
end;
总之 出错，各位给我看看吧！

Answer 1

我在Public 中写了
function TForm1.xTOd(i:Real):string; ////把TForm1.去掉

Answer 2

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
     function xTOd(i:Real):string;//这句要写在这里

Answer 3

请问在调用时：怎将Edit1.text中的值转换为Real型啊？我试了，好象没这个函数啊？strtoreal(edit1.text )

Answer 4

使用
var a:real;
begin
a:=strtofloat(edit1.text);//试试
end;