testautomated.out

来自「格式化源码的最新板」· OUT 代码 · 共 36 行

unit testautomated;

interface

type
  tpublicandautomated = class
  public
    function publicmethod: boolean;
  automated
    function auomatedmethod: wordbool; dispid 1;
  end;

  tautomatedonly = class
  automated
    function auomatedmethod: wordbool; dispid 1;
  end;

implementation

function tpublicandautomated.auomatedmethod: wordbool;
begin
  Result := True;
end;

function tpublicandautomated.publicmethod: boolean;
begin
  Result := True;
end;

function tautomatedonly.auomatedmethod: wordbool;
begin
  Result := True;
end;

end.