如果改成这样就不是0了:TRecordFile = class (TFileStream)
   private
      wRecSize: word;
    function GetwRecSize: word;   public
     constructor Create(const  FileName:string;Mode,xRecSize:Word);overload;
     property RecSize: word read GetwRecSize;
   end;

解决方案 »

  1.   

    我在构造函数里面加了一句:
    ShowMessage('constructor!');
    发现构造对象的时候根本没有执行这一句。所以我觉得构造方法是在编译器已经确定了的,运行期不会执行这段代码。具体是如何实现的,我也不太清楚。
      

  2.   

    我这里是delphi 5 /win2k
    楼主的第一段代码在我这里没任何问题,显示结果是15!
      

  3.   

    to pazee
    我是
    delphi6/winxp奇怪的问题
      

  4.   

    hehe,怪哉,我也碰到类似问题,请兄弟们解答了
      

  5.   

    to windosofun
    估计不是构造函数的问题,
    因为如果我使用
    var myTest:TRecordFile;
        i:integer;i:=sizeof(test);
    myTest:=TRecordFile.Create('slkdjf',fmCreate,i);
    showMessage(inttostr(myTest.recSize));就能得到正确的答案。