Delphi class of(클래스 참조, 클래스 정보에 대한 포인터)

908 단어 Delphi
클래스 인용 (TClass ACls) 은 클래스 (TClass A) 의 형식입니다. 클래스 인용 변수 (T) 를 설명하고 하위 클래스 (TClass B) 를 부여할 수 있으며, 이 변수를 통해 대상의 실례 (T.Create) 를 만들 수 있습니다.
코드:
unit Unit1;

{

  * created by HouSoft

  * 2011/12/21

  * www.yryz.net

}

interface

uses

  Sysutils;



type

  //   TClassA    

  TClassACls = class of TClassA;



  TClassA = class

    procedure Test; virtual; abstract;

  end;



  TClassB = class(TClassA)

    procedure Test; override;

  end;

implementation



{ TClassB }



procedure TClassB.Test;

begin

  WriteLn(ClassName);

end;



procedure Test;

var

  T                 : TClassACls;

  TC                : TClassA;

begin

  T := TClassB;                         //   

  TC := T.Create;



  WriteLn(TC.ClassName);                //    TClassB

  TC.Test;                              //    TClassB



  Sleep(MaxInt);

end;



initialization

  Test;



end.

좋은 웹페이지 즐겨찾기