具体声名的部分如下 function form1.Getdata:Tdata;直接放到声明Tform1的下面
TForm1 = class(TForm)
    Button1: Tbutton;
    Button2: TButton;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    function form1.Getdata:Tdata;  =错误这里
    procedure Button2Click(Sender: TObject);  private
    { Private declarations }
  public    { Public declarations }
  end;

解决方案 »

  1.   

    将函数声明部分的'form1.'去掉,函数具体实现时才加Form1.
    通常声明自定义函数再Private部分
      

  2.   

    function form1.Getdata:Tdata;  =错误这里 按成
    function Getdata:Tdata;
      

  3.   

    建议:
    TForm1 = class(TForm)
        Button1: Tbutton;
        Button2: TButton;
        Button3: TButton;
        procedure Button1Click(Sender: TObject);    
        procedure Button2Click(Sender: TObject);  private
        { Private declarations }
        function Getdata:Tdata;//.............  public    { Public declarations }
        //function Getdata:Tdata;//.............  end;
      

  4.   

    对,不用FORM1就可以了
    这是copy—paste很容易犯的错误!
    快结帖,
    给分!