一个Class可以作为另一个Class的成员吗？Delphi中如何实现？

Question

请给出实例，
或者指出下列代码错误我的代码如下：unit Unit2;interfaceuses
  Classes, SysUtils, Dialogs;type
  TDxfSection = class(TObject)
  private
    FA: Integer;
  public
    constructor Create();
    destructor  Destroy(); override;
  end;  TDXF = class(TObject)    //ＤＸＦ文件类
  private
    FOpened: Boolean;
    FDxfSection: TDxfSection;
  public
    function OpenDxf(FileName: String): Boolean;
    function ReadlnDxf(var S: String): Boolean;
    function CloseDxf(): Boolean;    constructor Create();
    destructor  Destroy(); override;
  end;implementation
var
  FDXF: TextFile;{Class TDXF}
constructor TDXF.Create();
begin
  inherited;
  //code
  FDxfSection.Create();
end;destructor TDXF.Destroy();
begin
  //code
  FDxfSection.Destroy;
  inherited;
end;function TDXF.OpenDxf(FileName: String): Boolean;
begin
  AssignFile(FDXF, FileName);
  try
    Reset(FDXF);
    Result := True;
  Except
    on E: Exception do
    begin
      Result := False;
    end;
  end;
  FOpened := Result;
end;function TDXF.ReadlnDxf(var S: String): Boolean;
begin
  if FOpened and (not Eof(FDXF)) then
  begin
    Readln(FDXF, S);
    Result := True;
  end
  else
  begin
    S := '';
    Result := False;
  end;
end;function TDXF.CloseDxf(): Boolean;
begin
  try
    CloseFile(FDXF);
    Result := True;
    FOpened := False;
  except
    Result := False;
  end;
end;
{Class TDxfSection}
constructor TDxfSection.Create();
begin
  inherited;
  //code
//  FA := 1;
end;destructor TDxfSection.Destroy();
begin
  //code
//  FA := 2;  
  inherited;
end;end.如执行
var
  Dxf: TDXF;DXF.Create()在constructor TDxfSection.Create();中报错

Answer 1

完全可以{Class TDXF}
constructor TDXF.Create();
begin
  inherited;
  //code
  FDxfSection.Create();
end;
===>
  FDxfSection :=  TDxfSection .Create;

Answer 2

怎么很多人犯这样的错误，  
关于你的问题真有意思， 你每天都在与TForm打交道， 难道你的Form, 没有TButton, TEdit....???

Answer 3

ｏｋ，搞定了，应该用　Object := TObject.Create();初始化而不是用　Object.Create;谢谢给分

Answer 4

关于，DWGZ
本来每人５０分的，
你的话很伤人，只好如此啦

Answer 5

当然可以了，Class本身就是一个数据类型，Delphi的类的变量就是一个引用指针而已。成员变量，顾名思义就是一个类型的实例了。