菜鸟问，老鸟指教

Question

自定义一个类
type TMyfaliy=class
     private 
     FMyFatherName:string;
     FMyFatherName:string;
     end;
编写按钮的单击事件
procedure TForm1.button1click(sender:tobject);
var
  myclass:TMyFamily;
begin
myclass:=TMyFamily.create;
myclass.FMyFatherName:='zhang';
myclass.FMyMotherName:='li';
showmessage('myclass.FMyFatherName');
showmessage('myclass.FMyMotherName');
end;
当我把myclass:=TMyFamily.create;注释掉以后按钮事件正常，关闭窗体时就出错。

Answer 1

老兄，你的程序有几个错误1.类定义中的第二个变量改为FMyMotherName
2.button事件中定义部分改为myclass:TMyfaliy
就可以运行了

Answer 2

把那个VAR中所有的都去掉就全部可以了..
因为你有两个引用计数..

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
   TMyFamily= class
   private
   FMyFatherName:string;
   FMyMotherName:string;
end;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var Myclass:TMyFamily;
begin
Myclass:=TMyfamily.Create;
Myclass.FMyFatherName:='Fuck';
Myclass.FMyMotherName:='Shit';
showmessage(Myclass.FMyFatherName);
showmessage(MyClass.FMyMotherName);
end;
以上没错..