結構體和類中屬性定義須要static地方

private

   function Readxxx:Integer;static;

public

   class property XXX:Integer read ReadXXx;

 

Txxx =record

class procedure test;Static;

end