具体声名的部分如下 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;
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;
通常声明自定义函数再Private部分
function Getdata:Tdata;
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;
这是copy—paste很容易犯的错误!
快结帖,
给分!