帮我看看一下代码有错误么(50)

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type ta=class public Constructor create overload; end; type TForm1 = class(TForm) btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } a:ta; end;var Form1: TForm1;implementation{$R *.dfm}constructor ta.create;beginend;procedure TForm1.btn1Click(Sender: TObject);begina.create;end;end.为什么 运行 a.create 就报错误！！

终于知道了。。自己回答吧 。。。应该把 a.create 变成 a:=ta.create!!!

接分,谢谢

来了。

有意思的兄台.[]