请问如何访问类里面的一个结构中的成员？？？？？？？？？？？？？？？？？？？？？

Question

TFileStruct =record
   FILETYPE,
   MOMO:string;
 end;  TFileMan = class
  private
    Handle:THandle;    //主窗体句柄
    procedure ZeroFile;//清空数据结构
  protected
     AFileStruct:TFileStruct;
  public
     property  FileStruct:TFileStruct read AFileStruct write AFileStruct;       //数据文件结构属性
....在一个form里面
var
  a:TFileMan;
procedure TForm1.Button1Click(Sender: TObject);
begin
  a.FileStruct.FILETYPE:='abc';//这里编译不过，为什么不能直接访问属性里的结构成员？？？
end;

Answer 1

property  FILETYPE:string read GetFileType write SetFileType;fucntion GetFileType: string;
begin
  Result := AFileStruct.FILETYPE;
end;procedure SetFileType(const Value: string);
begin
  AFileStruct.FILETYPE := Value;
end;

Answer 2

我试了一下,TFileMan的定义如果也在同一个单元里,那么改为  a.AFileStruct.FILETYPE:='abc';就可以.
但原来那个好像也没问题啊,奇怪.