너무 화가 난 델파이의 인터페이스에 의해 화가 났어요. 다음 코드를 참조하십시오.
유형
iinterface1 = 인터페이스
끝;
tclass1 = class (tinterfacedobject, iinterface1)
소멸자 파괴;
끝;
tform1 = 클래스 (tform)
버튼 1 : tbutton;
프로 시저 Formcreate (sender : tobject);
절차 버튼 1Click (sender : tobject);
사적인
{개인 선언}
class1 : iinterface1; // 이것은 인터페이스 iinterface1, class tclass1이 아닌 tclass1이 문제가 없습니다.
공공의
{공개 선언}
끝;
구현
{$ r *.dfm}
{tclass1}
소멸자 tclass1.Destroy;
시작하다
showmessage ( 'Destroy!');
상속;
끝;
절차 tform1. formcreate (sender : tobject);
시작하다
class1 : = tclass1.create;
끝;
절차 tform1.Button1click (sender : tobject);
시작하다
class1 : = nil; // 여기에 있습니다. 구조를 해결하기 위해 자동으로 파괴됩니다.
// class1이 클래스 tclass1 인 경우 파괴되지 않습니다.
//왜? 왜?
끝;