private
function Readxxx:Integer;static;
public
class property XXX:Integer read ReadXXx;
Txxx =record
class procedure test;Static;
end
private
function Readxxx:Integer;static;
public
class property XXX:Integer read ReadXXx;
Txxx =record
class procedure test;Static;
end
转载于:https://www.cnblogs.com/ZhouXiHong/p/4800256.html